/[webpac2]/trunk/lib/WebPAC/Input/ISIS.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Input/ISIS.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 264 by dpavlin, Thu Dec 15 14:12:00 2005 UTC revision 265 by dpavlin, Fri Dec 16 16:23:44 2005 UTC
# Line 76  sub open { Line 76  sub open {
76          $log->logcroak("need filename") if (! $arg->{'filename'});          $log->logcroak("need filename") if (! $arg->{'filename'});
77          my $code_page = $arg->{'code_page'} || '852';          my $code_page = $arg->{'code_page'} || '852';
78    
         #$log->logdie("can't find database ",$arg->{'filename'}) unless (glob($arg->{'filename'}.'.*'));  
   
79          # store data in object          # store data in object
80          $self->{'isis_code_page'} = $code_page;          $self->{'isis_code_page'} = $code_page;
81          foreach my $v (qw/isis_filename start_mfn limit_mfn/) {          foreach my $v (qw/isis_filename start_mfn limit_mfn/) {
# Line 107  sub open { Line 105  sub open {
105                                  $l = $cp->convert($l);                                  $l = $cp->convert($l);
106                                  return $l;                                  return $l;
107                          },                          },
108                  );                  ) or $log->logdie("can't find database ",$arg->{'filename'});
109    
110                  $db_size = $isis_db->count;                  $db_size = $isis_db->count;
111    
112                  unless ($db_size) {                  unless ($db_size) {
Legend:
Removed from v.264  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.26