[Koha-patches] [PATCH] BUG-1503: fixes broken matching for 'hidden' values.
Mason James
mason.loves.sushi at gmail.com
Mon Mar 30 01:54:15 CEST 2009
---
catalogue/MARCdetail.pl | 8 ++++----
1 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl
index 12c6544..db1c6f4 100755
--- a/catalogue/MARCdetail.pl
+++ b/catalogue/MARCdetail.pl
@@ -126,7 +126,7 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
# deal with leader
unless ( $tagslib->{'000'}->{'@'}->{tab} ne $tabloop )
- { # or ($tagslib->{'000'}->{'@'}->{hidden}==(-7|-4|-3|-2|2|3|5|8))) {
+ { # 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();
@@ -148,7 +148,7 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
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};
@@ -169,7 +169,7 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
ne $tabloop );
next
if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }
- ->{hidden}==(-7|-4|-3|-2|2|3|5|8));
+ ->{hidden} =~ /-7|-4|-3|-2|2|3|5|8/);
my %subfield_data;
$subfield_data{short_desc} = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib};
$subfield_data{long_desc} =
@@ -255,7 +255,7 @@ foreach my $field (@fields) {
# 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}==(-7|-4|-3|-2|2|3|5|8));
+ 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] } = GetAuthorisedValueDesc( $field->tag(),
--
1.5.6.5
More information about the Koha-patches
mailing list