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

[svn at svn.open-ils.org]

Author: miker
Date: 2007-12-19 17:52:40 -0500 (Wed, 19 Dec 2007)
New Revision: 8238

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
make z search more robust when using multi-target search

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-19 22:51:14 UTC (rev 8237)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-19 22:52:40 UTC (rev 8238)
@@ -324,13 +324,10 @@
     # "structure attribute"
     # -------------------------------------------------------------------
 	for( keys %$hash ) {
-#		$str .= '@attr ' .
-#			$services{$service}->{attrs}->{$_}->{format} . '=' .
-#			$services{$service}->{attrs}->{$_}->{code} . " \"" . $$hash{$_} . "\" ";		
-        $str .= 
-            '@attr 1=' . $services{$service}->{attrs}->{$_}->{code} . # add the use attribute
-            ' @attr 4=' . $services{$service}->{attrs}->{$_}->{format} . # add the structure attribute
-            " \"" . $$hash{$_} . "\" "; # add the search term
+		next unless ( exists $services{$service}->{attrs}->{$_} );
+        	$str .= '@attr 1=' . $services{$service}->{attrs}->{$_}->{code} . # add the use attribute
+			' @attr 4=' . $services{$service}->{attrs}->{$_}->{format} . # add the structure attribute
+			" \"" . $$hash{$_} . "\" "; # add the search term
 	}
 	return $str;
 }