From 79a90da3155b10a4403d3a3d9bbbe35750e6c44e Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 25 Nov 2008 13:55:54 +0000 Subject: [PATCH] don't test undefined connections, which can happen when non-supported search types are requested (e.g. loc => keyword) git-svn-id: svn://svn.open-ils.org/ILS/trunk@11330 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm index 42ddf202ef..5b2ce71337 100755 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm @@ -217,6 +217,9 @@ sub do_class_search { # local catalog search is not processed with other z39 results; $$args{service} = [grep {$_ ne 'native-evergreen-catalog'} @{$$args{service}}]; + @connections = grep {defined $_} @connections; + return undef unless @connections; + while ((my $index = OpenILS::Utils::ZClient::event( \@connections )) != 0) { my $ev = $connections[$index - 1]->last_event(); $logger->debug("z3950: Received event $ev"); -- 2.11.0