--- trunk/run.pl 2005/11/20 20:32:46 76 +++ trunk/run.pl 2005/11/23 00:14:05 113 @@ -65,7 +65,11 @@ database => 'ps', ); -while (my $row = $isis->fetch) { +my $total_rows = 0; + +for ( 0 ... $isis->size ) { + + my $row = $isis->fetch || next; my $mfn = $row->{'000'}->[0] || die "can't find MFN"; @@ -73,20 +77,20 @@ # print STDERR Dumper($row, $ds); - my $html = $out->apply( - template => 'html_ffzg.tt', - data => $ds, - ); - - # create test output - - my $file = sprintf('out/%02d.html', $mfn ); - open(my $fh, '>', $file) or die "can't open $file: $!"; - print $fh $html; - close($fh); - - $html =~ s#\s*[\n\r]+\s*##gs; - +# my $html = $out->apply( +# template => 'html_ffzg.tt', +# data => $ds, +# ); +# +# # create test output +# +# my $file = sprintf('out/%02d.html', $mfn ); +# open(my $fh, '>', $file) or die "can't open $file: $!"; +# print $fh $html; +# close($fh); +# +# $html =~ s#\s*[\n\r]+\s*##gs; +# # print STDERR $html; $est->add( @@ -95,4 +99,10 @@ type => 'search', ); + $total_rows++; + }; + +my $log = $lookup->_get_logger; + +$log->info("$total_rows records indexed");