Lines 956-961
sub GetISBDView {
Link Here
|
956 |
# warn "ERROR IN ISBD DEFINITION at : $isbdfield" unless $fieldvalue; |
956 |
# warn "ERROR IN ISBD DEFINITION at : $isbdfield" unless $fieldvalue; |
957 |
# warn "FV : $fieldvalue"; |
957 |
# warn "FV : $fieldvalue"; |
958 |
if ( $subfvalue ne "" ) { |
958 |
if ( $subfvalue ne "" ) { |
|
|
959 |
# OPAC hidden subfield |
960 |
next |
961 |
if ( ( $template eq 'opac' ) |
962 |
&& ( $tagslib->{$fieldvalue}->{$subfvalue}->{'hidden'} || 0 ) > 0 ); |
959 |
foreach my $field (@fieldslist) { |
963 |
foreach my $field (@fieldslist) { |
960 |
foreach my $subfield ( $field->subfield($subfvalue) ) { |
964 |
foreach my $subfield ( $field->subfield($subfvalue) ) { |
961 |
my $calculated = $analysestring; |
965 |
my $calculated = $analysestring; |
Lines 991-996
sub GetISBDView {
Link Here
|
991 |
for my $i ( 0 .. $#subf ) { |
995 |
for my $i ( 0 .. $#subf ) { |
992 |
my $valuecode = $subf[$i][1]; |
996 |
my $valuecode = $subf[$i][1]; |
993 |
my $subfieldcode = $subf[$i][0]; |
997 |
my $subfieldcode = $subf[$i][0]; |
|
|
998 |
# OPAC hidden subfield |
999 |
next |
1000 |
if ( ( $template eq 'opac' ) |
1001 |
&& ( $tagslib->{$fieldvalue}->{$subfieldcode}->{'hidden'} || 0 ) > 0 ); |
994 |
my $subfieldvalue = GetAuthorisedValueDesc( $tag, $subf[$i][0], $subf[$i][1], '', $tagslib ); |
1002 |
my $subfieldvalue = GetAuthorisedValueDesc( $tag, $subf[$i][0], $subf[$i][1], '', $tagslib ); |
995 |
my $tagsubf = $tag . $subfieldcode; |
1003 |
my $tagsubf = $tag . $subfieldcode; |
996 |
|
1004 |
|
997 |
- |
|
|