(bug #3783) fix marcurls

this permit to have multiples urls in one field

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 6599c33..0633d95 100755 (executable)
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -1605,13 +1605,13 @@ sub GetMarcUrls {
 
     my @marcurls;
     for my $field ( $record->field('856') ) {
-        my $marcurl;
         my @notes;
         for my $note ( $field->subfield('z') ) {
             push @notes, { note => $note };
         }
         my @urls = $field->subfield('u');
         foreach my $url (@urls) {
+            my $marcurl;
             if ( $marcflavour eq 'MARC21' ) {
                 my $s3   = $field->subfield('3');
                 my $link = $field->subfield('y');