|
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 |
- |
|
|