From 81e5fdd249be7cde71eb2c581ff247c0178b55b4 Mon Sep 17 00:00:00 2001 From: Mason James Date: Mon, 30 Mar 2009 12:54:15 +1300 Subject: [PATCH] BUG-1503: fixes broken matching for 'hidden' values. Signed-off-by: Galen Charlton --- catalogue/MARCdetail.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl index 12c6544ee4..db1c6f4b99 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(), -- 2.39.5