[Koha-cvs] koha/C4 SearchMarc.pm

[Chris Cormack]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Chris Cormack <rangi at savannah.gnu.org>	06/02/13 23:52:04

Modified files:
	C4             : SearchMarc.pm 

Log message:
	Just a little fix while im testing

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/SearchMarc.pm.diff?tr1=1.52&tr2=1.53&r1=text&r2=text

Patches:
Index: koha/C4/SearchMarc.pm
diff -u koha/C4/SearchMarc.pm:1.52 koha/C4/SearchMarc.pm:1.53
--- koha/C4/SearchMarc.pm:1.52	Mon Feb 13 16:35:37 2006
+++ koha/C4/SearchMarc.pm	Mon Feb 13 23:52:04 2006
@@ -237,10 +237,10 @@
 	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 @@
 	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)