--- trunk/lib/WebPAC/Normalize.pm	2006/09/25 15:26:12	707
+++ trunk/lib/WebPAC/Normalize.pm	2006/09/26 10:23:04	712
@@ -962,7 +962,7 @@
 
 Save value into lookup.
 
-  save_into_lookup($key,sub {
+  save_into_lookup($database,$input,$key,sub {
  	# code which produce one or more values 
   });
 
@@ -971,13 +971,15 @@
 =cut
 
 sub save_into_lookup {
-	my ($k,$coderef) = @_;
-	die "save_into_lookup needs key" unless defined($k);
+	my ($database,$input,$key,$coderef) = @_;
+	die "save_into_lookup needs database" unless defined($database);
+	die "save_into_lookup needs input" unless defined($input);
+	die "save_into_lookup needs key" unless defined($key);
 	die "save_into_lookup needs CODE" unless ( defined($coderef) && ref($coderef) eq 'CODE' );
 	my $mfn = $rec->{'000'}->[0] || die "mfn not defined or zero";
 	foreach my $v ( $coderef->() ) {
-		$lookup->{$k}->{$v}->{$mfn}++;
-		warn "# lookup $k $v $mfn saved\n";	# if ($debug > 1);
+		$lookup->{$database}->{$input}->{$key}->{$v}->{$mfn}++;
+		warn "# saved lookup $database/$input/$key [$v] $mfn\n"; #if ($debug > 1);
 	}
 }