[Koha-cvs] koha MARCdetail.pl [rel_2_2]

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Joshua Ferraro <address@hidden> 06/03/15 06:17:08

Modified files:
        .              : MARCdetail.pl 

Log message:
        refining visibility scheme further -- I don't think the leader would
        ever be hidden from the Intranet

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/MARCdetail.pl.diff?only_with_tag=rel_2_2&tr1=1.25.2.21&tr2=1.25.2.22&r1=text&r2=text

Patches:
Index: koha/MARCdetail.pl
diff -u koha/MARCdetail.pl:1.25.2.21 koha/MARCdetail.pl:1.25.2.22
--- koha/MARCdetail.pl:1.25.2.21        Wed Mar 15 06:03:49 2006
+++ koha/MARCdetail.pl  Wed Mar 15 06:17:08 2006
@@ -118,7 +118,7 @@
        my @loop_data =();
        my @subfields_data;
        # deal with leader
-       unless ($tagslib->{'000'}->{'@'}->{tab}  ne $tabloop  or 
($tagslib->{'000'}->{'@'}->{hidden}==(-7|-4|-3|-2|2|3|5|8))) {
+       unless ($tagslib->{'000'}->{'@'}->{tab}  ne $tabloop) { #  or 
($tagslib->{'000'}->{'@'}->{hidden}==(-7|-4|-3|-2|2|3|5|8))) {
                my %subfield_data;
                $subfield_data{marc_lib}=$tagslib->{'000'}->{'@'}->{lib};
                $subfield_data{marc_value}=$record->leader();
@@ -137,7 +137,7 @@
                # if tag <10, there's no subfield, use the "@" trick
                if ($fields[$x_i]->tag()<10) {
                        next if ($tagslib->{$fields[$x_i]->tag()}->{'@'}->{tab} 
 ne $tabloop);
-                       next if 
($tagslib->{$fields[$x_i]->tag()}->{'@'}->{hidden}==(-7|-4|-3|-2|2|3|5|8));
+                       #next if 
($tagslib->{$fields[$x_i]->tag()}->{'@'}->{hidden}==(-7|-4|-3|-2|2|3|5|8));
                        my %subfield_data;
                        
$subfield_data{marc_lib}=$tagslib->{$fields[$x_i]->tag()}->{'@'}->{lib};
                        $subfield_data{marc_value}=$fields[$x_i]->data();
@@ -150,7 +150,15 @@
                        for my $i (0..$#subf) {
                                $subf[$i][0] = "@" unless $subf[$i][0] or 
$subf[$i][0] eq '0';
                                next if 
($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{tab}  ne $tabloop);
-                               next if 
($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{hidden}==(-7|-4|-3|-2|2|3|5|8));
+                               # implement visibility flags -- see help file 
in marc_authorities_structure
+                               next if 
($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{hidden}==-7);
+                               next if 
($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{hidden}==-4);
+                               next if 
($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{hidden}==-3);
+                               next if 
($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{hidden}==-2);
+                               next if 
($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{hidden}==2);
+                               next if 
($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{hidden}==3);
+                               next if 
($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{hidden}==5);
+                               next if 
($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{hidden}==8);
                                my %subfield_data;
                                
$subfield_data{marc_lib}=$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{lib};
                                
$subfield_data{link}=$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{link};