--- trunk/lib/WebPAC/Parser.pm	2006/09/25 14:06:49	706
+++ trunk/lib/WebPAC/Parser.pm	2006/09/25 15:26:12	707
@@ -296,13 +296,7 @@
 
 			$log->debug("key = $key");
 
-			my $create = ' 
-				$coderef = ' . $e[7] . $e[8] . ';
-				foreach my $v ($coderef->()) {
-					next unless (defined($v) && $v ne \'\');
-					push @{ $lookup->{\'' . $key . '\'}->{$v} }, $mfn;
-				}
-			';
+			my $create = "save_into_lookup('$key', $e[7] $e[8] );\n";
 
 			$log->debug("create: $create");