Lines 112-118
sub check_biblio {
Link Here
|
112 |
foreach my $field ( $record->field('856') ) { |
112 |
foreach my $field ( $record->field('856') ) { |
113 |
my $url = $field->subfield('u'); |
113 |
my $url = $field->subfield('u'); |
114 |
next unless $url; |
114 |
next unless $url; |
115 |
$url = "$host/$url" unless $url =~ /^http/; |
115 |
next if $url =~ /^ftp/i; |
|
|
116 |
|
117 |
$url = "$host/$url" unless $url =~ /^http/i; |
116 |
my $check = { url => $url }; |
118 |
my $check = { url => $url }; |
117 |
if ( $bad_url->{ $url } ) { |
119 |
if ( $bad_url->{ $url } ) { |
118 |
$check->{ is_success } = 1; |
120 |
$check->{ is_success } = 1; |
119 |
- |
|
|