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

(-)a/C4/Biblio.pm (-7 / +10 lines)
Lines 1803-1809 sub GetMarcISSN { Link Here
1803
1803
1804
    Get all notes from the MARC record and returns them in an array.
1804
    Get all notes from the MARC record and returns them in an array.
1805
    The notes are stored in different fields depending on MARC flavour.
1805
    The notes are stored in different fields depending on MARC flavour.
1806
    MARC21 field 555 gets special attention for the $u subfields.
1806
    MARC21 5XX $u subfields receive special attention as they are URIs.
1807
1807
1808
=cut
1808
=cut
1809
1809
Lines 1821-1832 sub GetMarcNotes { Link Here
1821
    foreach my $field ( $record->field($scope) ) {
1821
    foreach my $field ( $record->field($scope) ) {
1822
        my $tag = $field->tag();
1822
        my $tag = $field->tag();
1823
        next if $blacklist{ $tag };
1823
        next if $blacklist{ $tag };
1824
        if( $marcflavour ne 'UNIMARC' && $tag =~ /555/ ) {
1824
        if( $marcflavour ne 'UNIMARC' && $field->subfield('u') ) {
1825
            # Field 555$u contains URLs
1825
            # Field 5XX$u always contains URI
1826
            # We first push the regular subfields and all $u's separately
1826
            # Examples: 505u, 506u, 510u, 514u, 520u, 530u, 538u, 540u, 542u, 552u, 555u, 561u, 563u, 583u
1827
            # Leave further actions to the template
1827
            # We first push the other subfields, then all $u's separately
1828
            push @marcnotes, { marcnote => $field->as_string('abcd') };
1828
            # Leave further actions to the template (see e.g. opac-detail)
1829
            my $othersub =
1830
                join '', ( 'a' .. 't', 'v' .. 'z', '0' .. '9' ); # excl 'u'
1831
            push @marcnotes, { marcnote => $field->as_string($othersub) };
1829
            foreach my $sub ( $field->subfield('u') ) {
1832
            foreach my $sub ( $field->subfield('u') ) {
1833
                $sub =~ s/^\s+|\s+$//g; # trim
1830
                push @marcnotes, { marcnote => $sub };
1834
                push @marcnotes, { marcnote => $sub };
1831
            }
1835
            }
1832
        } else {
1836
        } else {
1833
- 

Return to bug 18198