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 |
|
|
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++) { |
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; |