Parent Directory | Revision Log | 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; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |