| 
      
            Lines 1698-1704
          sub searchResults {
      
      
        Link Here
      
     | 
  
        
          | 1698 | 
           | 
          1698 | 
           | 
        
        
          | 1699 | 
              # loop through all of the records we've retrieved  | 
          1699 | 
              # loop through all of the records we've retrieved  | 
        
        
          | 1700 | 
              for ( my $i = $offset ; $i <= $times - 1 ; $i++ ) { | 
          1700 | 
              for ( my $i = $offset ; $i <= $times - 1 ; $i++ ) { | 
        
          
            
              | 1701 | 
                      my $marcrecord = MARC::File::USMARC::decode( $marcresults->[$i] );  | 
              1701 | 
                      my $marcrecord = eval { MARC::File::USMARC::decode( $marcresults->[$i] ) }; | 
            
            
               | 
               | 
              1702 | 
                      warn "ERROR DECODING RECORD - $@: " . $marcresults->[$i] if $@;  | 
            
            
              | 1703 | 
                      next if $@;  | 
            
            
              | 1704 | 
               | 
            
        
          | 1702 | 
                  my $fw = $scan  | 
          1705 | 
                  my $fw = $scan  | 
        
        
          | 1703 | 
                       ? undef  | 
          1706 | 
                       ? undef  | 
        
        
          | 1704 | 
                       : $bibliotag < 10  | 
          1707 | 
                       : $bibliotag < 10  | 
        
            
              | 1705 | 
              -   | 
               | 
               |