[open-ils-commits] r10680 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-09-22 09:20:11 -0400 (Mon, 22 Sep 2008)
New Revision: 10680

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
ignore the native catalog search when processing async z39 results

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2008-09-22 12:36:57 UTC (rev 10679)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2008-09-22 13:20:11 UTC (rev 10680)
@@ -194,6 +194,9 @@
     return undef unless (@connections);
 	my @records;
 
+    # local catalog search is not processed with other z39 results;
+    $$args{service} = [grep {$_ ne 'native-evergreen-catalog'} @{$$args{service}}];
+
 	while ((my $index = OpenILS::Utils::ZClient::event( \@connections )) != 0) {
 		my $ev = $connections[$index - 1]->last_event();
 		$logger->debug("z3950: Received event $ev");