projects
/
Biblio-Z3950.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
change test search
[Biblio-Z3950.git]
/
Scraper.pm
diff --git
a/Scraper.pm
b/Scraper.pm
index
d5e1ba8
..
692a4c6
100644
(file)
--- 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;