[open-ils-commits] r8244 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: erickson
Date: 2007-12-19 20:42:25 -0500 (Wed, 19 Dec 2007)
New Revision: 8244

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
exiting search early on connection failure

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-20 01:16:38 UTC (rev 8243)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-20 01:42:25 UTC (rev 8244)
@@ -18,6 +18,7 @@
 use OpenILS::Utils::CStoreEditor q/:funcs/;
 
 my $output	= "USMARC"; 
+my $U = 'OpenILS::Application::AppUtils';
 
 my $sclient;
 my %services;
@@ -170,6 +171,7 @@
 		$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};