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

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

Return to bug 18198