r1018@llin: dpavlin | 2006-09-26 12:20:52 +0200

[webpac2] / lib / WebPAC / Normalize.pm

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 2bbdc37..6abf00c 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -962,7 +962,7 @@ sub lookup {
 
 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 @@ This function shouldn't be called directly, it's called from code created by L<W
 =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);
        }
 }