[Koha-cvs] koha MARCdetail.pl [rel_2_2]
Joshua Ferraro
jmf at kados.org
Wed Mar 15 07:03:49 CET 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Joshua Ferraro <kados at savannah.gnu.org> 06/03/15 06:03:49
Modified files:
. : MARCdetail.pl
Log message:
change 'hidden' to check encoded scheme
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/MARCdetail.pl.diff?only_with_tag=rel_2_2&tr1=1.25.2.20&tr2=1.25.2.21&r1=text&r2=text
Patches:
Index: koha/MARCdetail.pl
diff -u koha/MARCdetail.pl:1.25.2.20 koha/MARCdetail.pl:1.25.2.21
--- koha/MARCdetail.pl:1.25.2.20 Tue Feb 21 19:57:30 2006
+++ koha/MARCdetail.pl Wed Mar 15 06:03:49 2006
@@ -118,7 +118,7 @@
my @loop_data =();
my @subfields_data;
# deal with leader
- unless ($tagslib->{'000'}->{'@'}->{tab} ne $tabloop or $tagslib->{'000'}->{'@'}->{hidden}) {
+ 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});
+ 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,7 @@
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});
+ next if ($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{hidden}==(-7|-4|-3|-2|2|3|5|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};
@@ -209,7 +209,7 @@
# loop through each subfield
for my $i (0..$#subf) {
next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{tab} ne 10);
- next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{hidden});
+ next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{hidden}==(-7|-4|-3|-2|2|3|5|8));
$witness{$subf[$i][0]} = $tagslib->{$field->tag()}->{$subf[$i][0]}->{lib};
$this_row{$subf[$i][0]} =$subf[$i][1];
}
More information about the Koha-cvs
mailing list