koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] koha/C4 SearchMarc.pm


From: Joshua Ferraro
Subject: [Koha-cvs] koha/C4 SearchMarc.pm
Date: Mon, 27 Feb 2006 01:10:14 +0000

CVSROOT:        /sources/koha
Module name:    koha
Branch:         
Changes by:     Joshua Ferraro <address@hidden> 06/02/27 01:10:14

Modified files:
        C4             : SearchMarc.pm 

Log message:
        use new Context->Zconn object

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

Patches:
Index: koha/C4/SearchMarc.pm
diff -u koha/C4/SearchMarc.pm:1.56 koha/C4/SearchMarc.pm:1.57
--- koha/C4/SearchMarc.pm:1.56  Thu Feb 16 03:12:15 2006
+++ koha/C4/SearchMarc.pm       Mon Feb 27 01:10:14 2006
@@ -235,14 +235,8 @@
 #              warn "$i : "address@hidden "=> $tag / $subfield = 
".$tagslib->{$tag}->{$subfield}->{kohafield};
        }
        warn "QUERY : $query";
-       my $Zconn;
-       eval {
-               $Zconn = new ZOOM::Connection(C4::Context->config("zebradb"));
-       };
-       $Zconn->option(cqlfile => 
C4::Context->config("intranetdir")."/zebra/pqf.properties");
-       $Zconn->option(preferredRecordSyntax => "xml");
+       my $Zconn = C4::Context->Zconn or die "unable to set Zconn";
        my $q = new ZOOM::Query::CQL2RPN( $query, $Zconn);
-#      warn "ERROR : ".$Zconn->errcode();
        my $rs = $Zconn->search($q);
        my $numresults=$rs->size();
        if ($numresults eq 0) {




reply via email to

[Prev in Thread] Current Thread [Next in Thread]