From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 18 Sep 2012 14:29:30 +0000 (+0200)
Subject: fix number of results
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=0cf61cc2c3d25c027c343701f238e225c148fbd1;p=Biblio-Z3950.git

fix number of results
---

diff --git a/Aleph.pm b/Aleph.pm
index 3f6eabe..99c054d 100644
--- a/Aleph.pm
+++ b/Aleph.pm
@@ -103,10 +103,10 @@ diag "submit search [$query] on ", $self->{database};
 	);
 
 	my $hits = 0;
-	if ( $mech->content =~ m{ukupno\s+(\d+).*do\s+(\d+)}s ) { # FIXME Many results in Crotian
+	if ( $mech->content =~ m{ukupno\s+(\d+).*do\s+(\d+)} ) { # FIXME Many results in Crotian
 		$hits = $1;
 		$hits = $2 if $2 && $2 < $1; # correct for max. results
-	} elsif ( $mech->content =~ m{(\d+)\s+od\s+(\d+)}s ) { # FIXME single result in Croatian
+	} elsif ( $mech->content =~ m{(\d+)\s+od\s+(\d+)} ) { # FIXME single result in Croatian
 		$hits = $2;
 	} else {
 		diag "get't find results in ", $mech->content;