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>
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')) {
$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;
}