/[webpac2]/trunk/lib/WebPAC/Input.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.pm

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

revision 307 by dpavlin, Tue Dec 20 00:03:04 2005 UTC revision 308 by dpavlin, Tue Dec 20 19:01:22 2005 UTC
# Line 6  use strict; Line 6  use strict;
6  use WebPAC::Common;  use WebPAC::Common;
7  use base qw/WebPAC::Common/;  use base qw/WebPAC::Common/;
8  use Text::Iconv;  use Text::Iconv;
9    use Data::Dumper;
10    
11  =head1 NAME  =head1 NAME
12    
# Line 224  sub open { Line 225  sub open {
225    
226                  my $rec = $self->{fetch_rec}->($self, $db, $pos );                  my $rec = $self->{fetch_rec}->($self, $db, $pos );
227    
228                    $log->debug(sub { Dumper($rec) });
229    
230                  if (! $rec) {                  if (! $rec) {
231                          $log->warn("record $pos empty? skipping...");                          $log->warn("record $pos empty? skipping...");
232                          next;                          next;
Legend:
Removed from v.307  
changed lines
  Added in v.308
  ViewVC Help
Powered by ViewVC 1.1.26