From 85fba5d72ff41b7e4ed8fab5a998462e03f2b0d4 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Mon, 13 Feb 2006 23:52:04 +0000
Subject: [PATCH] Just a little fix while im testing

---
 C4/SearchMarc.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/C4/SearchMarc.pm b/C4/SearchMarc.pm
index 4bb3ee4739..095d66fac7 100644
--- a/C4/SearchMarc.pm
+++ b/C4/SearchMarc.pm
@@ -237,10 +237,10 @@ sub catalogsearch {
 	warn "QUERY : $query";
 	my $Zconn;
 	eval {
-		$Zconn = new ZOOM::Connection('localhost','2100');
+		$Zconn = new ZOOM::Connection('localhost:2100/koha3');
 	};
 	warn "ICI";
-	$Zconn->option(cqlfile => "/home/paul/koha.dev/head/zebra/pqf.properties");
+	$Zconn->option(cqlfile => "/usr/local/koha3/intranet/zebra/pqf.properties");
 	$Zconn->option(preferredRecordSyntax => "xml");
 	warn "LA";
 	my $q = new ZOOM::Query::CQL2RPN( $query, $Zconn);
@@ -258,10 +258,10 @@ sub catalogsearch {
 	my @finalresult = ();
 	my @CNresults=();
 	my $totalitems=0;
-	$offset=1 unless $offset;
+	$offset=0 unless $offset;
 	# calculate max offset
 	my $maxrecordnum = $offset+$length<$numresults?$offset+$length:$numresults;
-	for (my $i=$offset; $i <= $maxrecordnum; $i++) {
+	for (my $i=$offset; $i < $maxrecordnum; $i++) {
 		# get the MARC record (in XML)...
 		# warn "REC $i = ".$rs->record($i)->raw();
 # FIXME : it's a silly way to do things : XML => MARC::Record => hash. We had better developping a XML=> hash (in biblio.pm)
-- 
2.39.5