From 1a64df1b039682d68be71ad4e147f3cf4bcacf84 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sat, 23 Oct 2010 18:57:49 +0200 Subject: [PATCH] stop at last record --- Aleph.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/Aleph.pm b/Aleph.pm index 474cd95..3ad6287 100644 --- 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 { -- 2.20.1