From 7ee6a4c31d28e715d598b9802990167de1744d02 Mon Sep 17 00:00:00 2001 From: Fridolyn SOMERS Date: Mon, 26 Nov 2012 15:15:18 +0100 Subject: [PATCH] Bug 9147: OPAC hidden fields are not hidden in ISBD view Signed-off-by: Chris Cormack Does what it says, hides hidden fields on the OPAC --- C4/Biblio.pm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index d64acfb..dc61bf5 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -956,6 +956,10 @@ sub GetISBDView { # warn "ERROR IN ISBD DEFINITION at : $isbdfield" unless $fieldvalue; # warn "FV : $fieldvalue"; if ( $subfvalue ne "" ) { + # OPAC hidden subfield + next + if ( ( $template eq 'opac' ) + && ( $tagslib->{$fieldvalue}->{$subfvalue}->{'hidden'} || 0 ) > 0 ); foreach my $field (@fieldslist) { foreach my $subfield ( $field->subfield($subfvalue) ) { my $calculated = $analysestring; @@ -991,6 +995,10 @@ sub GetISBDView { for my $i ( 0 .. $#subf ) { my $valuecode = $subf[$i][1]; my $subfieldcode = $subf[$i][0]; + # OPAC hidden subfield + next + if ( ( $template eq 'opac' ) + && ( $tagslib->{$fieldvalue}->{$subfieldcode}->{'hidden'} || 0 ) > 0 ); my $subfieldvalue = GetAuthorisedValueDesc( $tag, $subf[$i][0], $subf[$i][1], '', $tagslib ); my $tagsubf = $tag . $subfieldcode; -- 1.7.10.4