Lines 1698-1706
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 = eval { MARC::File::USMARC::decode( $marcresults->[$i] ) }; |
1701 |
my $marcrecord = eval { MARC::File::USMARC::decode( $marcresults->[$i] ); }; |
1702 |
warn "ERROR DECODING RECORD - $@: " . $marcresults->[$i] if $@; |
1702 |
if ( $@ ) { |
1703 |
next if $@; |
1703 |
warn "ERROR DECODING RECORD - $@: " . $marcresults->[$i]; |
|
|
1704 |
next; |
1705 |
} |
1704 |
|
1706 |
|
1705 |
my $fw = $scan |
1707 |
my $fw = $scan |
1706 |
? undef |
1708 |
? undef |
1707 |
- |
|
|