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

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

Return to bug 9147