[Koha-cvs] koha/C4 Biblio.pm

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Joshua Ferraro <kados at savannah.gnu.org>	06/02/14 21:36:03

Modified files:
	C4             : Biblio.pm 

Log message:
	adding a 'use ZOOM' to biblio.pm, needed for non-mod_perl install.
	also adding diagnostic error if not able to connect to Zebra

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Biblio.pm.diff?tr1=1.139&tr2=1.140&r1=text&r2=text

Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.139 koha/C4/Biblio.pm:1.140
--- koha/C4/Biblio.pm:1.139	Tue Feb 14 19:53:25 2006
+++ koha/C4/Biblio.pm	Tue Feb 14 21:36:03 2006
@@ -25,6 +25,7 @@
 use MARC::Record;
 use MARC::File::USMARC;
 use MARC::File::XML;
+use ZOOM;
 
 use vars qw($VERSION @ISA @EXPORT);
 
@@ -158,6 +159,11 @@
 	eval {
 		$Zconn = new ZOOM::Connection(C4::Context->config("zebradb"));
 	};
+	if ($@){
+	        warn "Error ", $@->code(), ": ", $@->message(), "\n";
+	        die "Fatal error, cant connect to z3950 server";
+	}
+
 	$Zconn->option(cqlfile => C4::Context->config("intranetdir")."/zebra/pqf.properties");
 # 	my $record = XMLgetbiblio($dbh,$biblionumber);
 	my $Zpackage = $Zconn->package();
@@ -2921,8 +2927,12 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.139 2006/02/14 19:53:25 rangi Exp $
+# $Id: Biblio.pm,v 1.140 2006/02/14 21:36:03 kados Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.140  2006/02/14 21:36:03  kados
+# adding a 'use ZOOM' to biblio.pm, needed for non-mod_perl install.
+# also adding diagnostic error if not able to connect to Zebra
+#
 # Revision 1.139  2006/02/14 19:53:25  rangi
 # Just a little missing my
 #