--- branches/hidra/all2xml.pl	2004/03/08 21:14:07	251
+++ branches/hidra/all2xml.pl	2004/03/08 21:17:32	252
@@ -212,7 +212,8 @@
 
 			sub chk_eval($) {
 				my $data = shift;
-				if ($data =~ s/eval{([^}]+)}//) {
+				return if (! defined($data));
+				if ($data && $data =~ s/\s*eval{([^}]+)}\s*//) {
 					if (eval "$1") {
 						return $data;
 					} else {
@@ -270,7 +271,7 @@
 								$display = $new_display;
 								$cache->{lhash}->{$display} = $new_display;
 							} else {
-								print STDERR "WARNING: lookup for '$display' didn't find anything.\n";
+#								print STDERR "WARNING: lookup for '$display' didn't find anything.\n";
 								$display = "";
 								$cache->{lhash}->{$display} = $null;
 							}
@@ -301,6 +302,10 @@
 						$swish_data .= $swish if ($s);
 						$swish_exact_data .= "xxbxx $swish xxexx " if ($se && $swish ne "");
 					}
+
+					$tmp = chk_eval($tmp);
+					$swish_data .= $tmp if ($s && $tmp);
+					$swish_exact_data .= "xxbxx $tmp xxexx " if ($se && $tmp ne "");
 				}
 
 				# type="display" ; field for display
@@ -333,7 +338,8 @@
 						no strict 'refs';
 						$idisplay = &$filter($idisplay);
 					}
-					push @index_data, $idisplay if (! $iterate_by_page);
+					$idisplay = chk_eval($idisplay);
+					push @index_data, $idisplay if ($idisplay && !$iterate_by_page);
 				}
 
 				# store fields in lookup