From 0abef0008b05996cd1a807a862b0bd386b473860 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 16 Mar 2006 22:49:51 +0000
Subject: [PATCH] logging an error if we can't connect to the z server

git-svn-id: svn://svn.open-ils.org/ILS/trunk@3384 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
index 19ec0f87bd..c053ddaa11 100755
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
@@ -150,6 +150,10 @@ sub z39_search_by_string {
 		preferredRecordSyntax	=> $output, 
 	);
 
+	if(!$conn) {
+		$logger->error("Unable to create Z3950 connection: $hst, $prt, $db, $usr, $pw, $output");
+		return OpenILS::Event->new('UNKNOWN'); # XXX needs to be a real event
+	}
 
 	my $rs = $conn->search( $search );
 	return OpenILS::Event->new('Z3950_SEARCH_FAILED') unless $rs;
-- 
2.43.2