From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 22 Oct 2010 23:23:08 +0000 (+0200)
Subject: fix Aleph scraper
X-Git-Url: http://git.rot13.org/?p=Biblio-Z3950.git;a=commitdiff_plain;h=02fac26e98524a533e6af53bc1afc3dc89e83260

fix Aleph scraper
---

diff --git a/Aleph.pm b/Aleph.pm
index 71d67a7..971e418 100644
--- a/Aleph.pm
+++ b/Aleph.pm
@@ -8,9 +8,6 @@ use Data::Dump qw/dump/;
 
 use base 'Scraper';
 
-our $mech = WWW::Mechanize->new();
-our $hits;
-
 sub diag {
 	print "# ", @_, $/;
 }
@@ -60,8 +57,7 @@ sub usemap {{
 #	12		=> '',
 #	1007	=> '',
 #	1016	=> '',
-
-};
+}};
 
 
 sub search {
@@ -89,7 +85,7 @@ diag "submit search $query";
 		},
 	);
 
-	$hits = 0;
+	my $hits = 0;
 	if ( $mech->content =~ m{ukupno\s+(\d+).*(do\s+(\d+))}s ) {
 		$hits = $1;
 		$hits = $2 if $2 && $2 < $1; # correct for max. results