/[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 301 by dpavlin, Mon Dec 19 21:26:04 2005 UTC revision 338 by dpavlin, Sat Dec 31 16:50:06 2005 UTC
# Line 3  package WebPAC::Input; Line 3  package WebPAC::Input;
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
 use blib;  
   
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 217  sub open { Line 216  sub open {
216          # store size for later          # store size for later
217          $self->{size} = ($limit - $offset) ? ($limit - $offset + 1) : 0;          $self->{size} = ($limit - $offset) ? ($limit - $offset + 1) : 0;
218    
219          $log->info("processing $self->{size} records in $code_page, convert to $self->{code_page}");          $log->info("processing $self->{size}/$size records [$offset-$limit] convert $code_page -> $self->{code_page}");
220    
221          # read database          # read database
222          for (my $pos = $offset; $pos <= $limit; $pos++) {          for (my $pos = $offset; $pos <= $limit; $pos++) {
# Line 226  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.301  
changed lines
  Added in v.338
  ViewVC Help
Powered by ViewVC 1.1.26