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