From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 20 Dec 2007 01:42:25 +0000 (+0000)
Subject: exiting search early on connection failure
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=f3884decad602dde6ad18788c9772df2c78c2b18;p=Evergreen.git

exiting search early on connection failure

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@8244 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
index 497d15ac53..befd137801 100755
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
@@ -18,6 +18,7 @@ use OpenSRF::Utils::Logger qw/$logger/;
 use OpenILS::Utils::CStoreEditor q/:funcs/;
 
 my $output	= "USMARC"; 
+my $U = 'OpenILS::Application::AppUtils';
 
 my $sclient;
 my %services;
@@ -170,6 +171,7 @@ sub do_class_search {
 		$tmp_args{query} = compile_query('and', $tmp_args{service}, $tmp_args{search});
 
 		my $res = $self->do_service_search( $conn, $auth, \%tmp_args );
+        return $res if $U->event_code($res);
 
 		push @results, $res->{result};
 		push @connections, $res->{connection};