(bug #2904) support of 856$u and 856$z in UNIMARC
This patch change the linktext as the label of the link(in 856$z), and set the url from the 856$u. Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
parent
7ca82ab5d2
commit
796f626b5b
1 changed files with 3 additions and 2 deletions
|
@ -1126,8 +1126,8 @@ Assumes web resources (not uncommon in MARC21 to omit resource type ind)
|
|||
sub GetMarcUrls {
|
||||
my ($record, $marcflavour) = @_;
|
||||
my @marcurls;
|
||||
my $marcurl;
|
||||
for my $field ($record->field('856')) {
|
||||
my $marcurl;
|
||||
my $url = $field->subfield('u');
|
||||
my @notes;
|
||||
for my $note ( $field->subfield('z')) {
|
||||
|
@ -1155,7 +1155,8 @@ sub GetMarcUrls {
|
|||
$marcurl->{'part'} = $s3 if($link);
|
||||
$marcurl->{'toc'} = 1 if($s3 =~ /^[Tt]able/) ;
|
||||
} else {
|
||||
$marcurl->{'linktext'} = $url || C4::Context->preference('URLLinkText') ;
|
||||
$marcurl->{'linktext'} = $field->subfield('z') || C4::Context->preference('URLLinkText') || $url;
|
||||
$marcurl->{'MARCURL'} = $url ;
|
||||
}
|
||||
push @marcurls, $marcurl;
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue