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