From d8c4a8190e88a1a0e6c684faf1ce88cb673c78fe Mon Sep 17 00:00:00 2001 From: Ryan Higgins Date: Sun, 1 Jun 2008 09:56:15 -0500 Subject: [PATCH] Remove a couple of warns. Signed-off-by: Joshua Ferraro --- C4/Biblio.pm | 2 -- 1 file changed, 2 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 99996f5c8a..8649af3b91 100755 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -1116,9 +1116,7 @@ sub GetMarcUrls { if($marcflavour eq 'MARC21') { my $s3 = $field->subfield('3'); my $link = $field->subfield('y'); - warn $url; unless($url =~ /^\w+:/) { - warn $field->indicator(1); if($field->indicator(1) eq '7') { $url = $field->subfield('2') . "://" . $url; } elsif ($field->indicator(1) eq '1') { -- 2.39.5