X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=Scraper.pm;h=692a4c6f4496c2a639a6f84852a73ed6ebff0744;hb=b35ea490aa8fd946c0457fc7a7178bd6218065ef;hp=d5e1ba8d8cb12ea82fc4ff1decd5b27558e52046;hpb=7a180b9993118770ad3ba80a000430f54af05254;p=Biblio-Z3950.git

diff --git a/Scraper.pm b/Scraper.pm
index d5e1ba8..692a4c6 100644
--- a/Scraper.pm
+++ b/Scraper.pm
@@ -18,6 +18,8 @@ sub new {
     return $self;
 }
 
+sub mech { $_[0]->{mech} }
+
 sub save_marc {
 	my ( $self, $id, $marc ) = @_;
 
@@ -44,6 +46,7 @@ sub save_content {
 	print $html $self->{mech}->content;
 	close($html);
 	warn "# save_content $path ", -s $path, " bytes";
+	$dump_nr++;
 }
 
 1;