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