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