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