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 |
- |
|
|