View | Details | Raw Unified | Return to bug 9147
Collapse All | Expand All

(-)a/C4/Biblio.pm (-1 / +8 lines)
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
- 

Return to bug 9147