--- trunk/lib/WebPAC/Input/ISIS.pm 2005/11/23 00:14:00 112 +++ trunk/lib/WebPAC/Input/ISIS.pm 2005/11/23 00:14:05 113 @@ -181,7 +181,10 @@ $log->logdie("hum? implementation missing?"); } - $log->confess("record $mfn empty?") unless ($rec); + if (! $rec) { + $log->warn("record $mfn empty? skipping..."); + next; + } # store if ($self->{'low_mem'}) { @@ -242,11 +245,15 @@ $self->progress_bar($mfn,$self->{'max_mfn'}); + my $rec; + if ($self->{'low_mem'}) { - return $self->{'db'}->get($mfn); + $rec = $self->{'db'}->get($mfn); } else { - return $self->{'data'}->{$mfn}; + $rec = $self->{'data'}->{$mfn}; } + + $rec ||= 0E0; } =head2 pos