--- trunk/all2xml.pl	2004/03/05 23:33:19	233
+++ trunk/all2xml.pl	2004/03/09 12:17:05	255
@@ -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
@@ -740,8 +746,9 @@
 		print STDERR "\n";
 
 	} elsif ($type_base eq "excel") {
-		use Spreadsheet::ParseExcel;
-		use Spreadsheet::ParseExcel::Utility qw(int2col);
+		require Spreadsheet::ParseExcel;
+		require Spreadsheet::ParseExcel::Utility;
+		import Spreadsheet::ParseExcel::Utility qw(int2col);
 		
 		$import2cp = Text::Iconv->new($config->{excel_codepage},$codepage);
 		my $excel_file = $cfg -> val($database, 'excel_file') || die "$database doesn't have 'excel_file' defined!";
@@ -795,7 +802,7 @@
 		}
 	} elsif ($type_base eq "marc") {
 
-		use MARC;
+		require MARC;
 		
 		$import2cp = Text::Iconv->new($config->{marc_codepage},$codepage);
 		my $marc_file = $cfg -> val($database, 'marc_file') || die "$database doesn't have 'marc_file' defined!";