projects
/
Biblio-Z3950.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d2939f3
)
stop at last record
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 23 Oct 2010 16:57:49 +0000
(18:57 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sat, 23 Oct 2010 16:57:49 +0000
(18:57 +0200)
Aleph.pm
patch
|
blob
|
history
diff --git
a/Aleph.pm
b/Aleph.pm
index
474cd95
..
3ad6287
100644
(file)
--- a/
Aleph.pm
+++ b/
Aleph.pm
@@
-115,7
+115,7
@@
diag "in MARC format";
$mech->follow_link( url_regex => qr/format=001/ );
- return $hits;
+ return $
self->{hits} = $
hits;
}
@@
-180,9
+180,11
@@
warn "## ++ ", dump( $f, $i1, $i2, @sf );
$self->save_marc( $id, $marc->as_usmarc );
- $nr++;
-
- $mech->follow_link( url_regex => qr/set_entry=0*$nr/ );
+ if ( $nr < $self->{hits} ) {
+ $nr++;
+ diag "follow link to next record $nr";
+ $mech->follow_link( url_regex => qr/set_entry=0*$nr/ );
+ }
return $marc->as_usmarc;
} else {