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