[Koha-cvs] koha/C4 SearchMarc.pm

Joshua Ferraro jmf at kados.org
Mon Feb 27 02:10:14 CET 2006


CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Joshua Ferraro <kados at savannah.gnu.org>	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 : ".@$tags[$i]. "=> $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) {





More information about the Koha-cvs mailing list