[Top][All Lists]
[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) {