[Koha-cvs] koha/C4 SearchMarc.pm

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         
Changes by:     Chris Cormack <address@hidden>  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)