various updates to make lookups work (but they don't still)

[webpac2] / lib / WebPAC / Input / ISIS.pm

diff --git a/lib/WebPAC/Input/ISIS.pm b/lib/WebPAC/Input/ISIS.pm
index 5ab2a76..061c48f 100644 (file)
--- a/lib/WebPAC/Input/ISIS.pm
+++ b/lib/WebPAC/Input/ISIS.pm
@@ -76,7 +76,7 @@ sub open {
        $log->logcroak("need filename") if (! $arg->{'filename'});
        my $code_page = $arg->{'code_page'} || '852';
 
-       $log->logdie("can't find database ",$arg->{'filename'}) unless (glob($arg->{'filename'}.'.*'));
+       #$log->logdie("can't find database ",$arg->{'filename'}) unless (glob($arg->{'filename'}.'.*'));
 
        # store data in object
        $self->{'isis_code_page'} = $code_page;
@@ -194,7 +194,7 @@ sub open {
                }
 
                # create lookup
-               $self->{'lookup'}->add( $rec ) if ($self->{'lookup'} && can($self->{'lookup'}->add));
+               $self->{'lookup'}->add( $rec ) if ($rec && $self->{'lookup'});
 
                $self->progress_bar($mfn,$maxmfn);