r345@llin: dpavlin | 2005-12-31 17:50:23 +0100

[webpac2] / lib / WebPAC / Input.pm

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index 8c1339e..c6ea85e 100644 (file)
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -6,6 +6,7 @@ use strict;
 use WebPAC::Common;
 use base qw/WebPAC::Common/;
 use Text::Iconv;
+use Data::Dumper;
 
 =head1 NAME
 
@@ -215,7 +216,7 @@ sub open {
        # store size for later
        $self->{size} = ($limit - $offset) ? ($limit - $offset + 1) : 0;
 
-       $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}");
 
        # read database
        for (my $pos = $offset; $pos <= $limit; $pos++) {
@@ -224,6 +225,8 @@ sub open {
 
                my $rec = $self->{fetch_rec}->($self, $db, $pos );
 
+               $log->debug(sub { Dumper($rec) });
+
                if (! $rec) {
                        $log->warn("record $pos empty? skipping...");
                        next;