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

(-)a/C4/Biblio.pm (-7 / +10 lines)
Lines 1710-1716 sub GetMarcISSN { Link Here
1710
1710
1711
    Get all notes from the MARC record and returns them in an array.
1711
    Get all notes from the MARC record and returns them in an array.
1712
    The notes are stored in different fields depending on MARC flavour.
1712
    The notes are stored in different fields depending on MARC flavour.
1713
    MARC21 field 555 gets special attention for the $u subfields.
1713
    MARC21 5XX $u subfields receive special attention as they are URIs.
1714
1714
1715
=cut
1715
=cut
1716
1716
Lines 1728-1739 sub GetMarcNotes { Link Here
1728
    foreach my $field ( $record->field($scope) ) {
1728
    foreach my $field ( $record->field($scope) ) {
1729
        my $tag = $field->tag();
1729
        my $tag = $field->tag();
1730
        next if $blacklist{ $tag };
1730
        next if $blacklist{ $tag };
1731
        if( $marcflavour ne 'UNIMARC' && $tag =~ /555/ ) {
1731
        if( $marcflavour ne 'UNIMARC' && $field->subfield('u') ) {
1732
            # Field 555$u contains URLs
1732
            # Field 5XX$u always contains URI
1733
            # We first push the regular subfields and all $u's separately
1733
            # Examples: 505u, 506u, 510u, 514u, 520u, 530u, 538u, 540u, 542u, 552u, 555u, 561u, 563u, 583u
1734
            # Leave further actions to the template
1734
            # We first push the other subfields, then all $u's separately
1735
            push @marcnotes, { marcnote => $field->as_string('abcd') };
1735
            # Leave further actions to the template (see e.g. opac-detail)
1736
            my $othersub =
1737
                join '', ( 'a' .. 't', 'v' .. 'z', '0' .. '9' ); # excl 'u'
1738
            push @marcnotes, { marcnote => $field->as_string($othersub) };
1736
            foreach my $sub ( $field->subfield('u') ) {
1739
            foreach my $sub ( $field->subfield('u') ) {
1740
                $sub =~ s/^\s+|\s+$//g; # trim
1737
                push @marcnotes, { marcnote => $sub };
1741
                push @marcnotes, { marcnote => $sub };
1738
            }
1742
            }
1739
        } else {
1743
        } else {
1740
- 

Return to bug 18198