From 30d2cb06f2a733934911e12126ec04a862bee7e3 Mon Sep 17 00:00:00 2001 From: Nahuel ANGELINETTI Date: Fri, 9 Jan 2009 10:54:30 +0100 Subject: [PATCH] (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 --- C4/Biblio.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 0a1e5a073b..3f361a11c2 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -1128,8 +1128,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')) { @@ -1157,7 +1157,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; } -- 2.39.5