Parent Directory | Revision Log | Patch
revision 720 by dpavlin, Tue Sep 26 10:23:04 2006 UTC | revision 721 by dpavlin, Fri Sep 29 12:27:47 2006 UTC | |
---|---|---|
# | Line 979 sub save_into_lookup { | Line 979 sub save_into_lookup { |
979 | my $mfn = $rec->{'000'}->[0] || die "mfn not defined or zero"; | my $mfn = $rec->{'000'}->[0] || die "mfn not defined or zero"; |
980 | foreach my $v ( $coderef->() ) { | foreach my $v ( $coderef->() ) { |
981 | $lookup->{$database}->{$input}->{$key}->{$v}->{$mfn}++; | $lookup->{$database}->{$input}->{$key}->{$v}->{$mfn}++; |
982 | warn "# saved lookup $database/$input/$key [$v] $mfn\n"; #if ($debug > 1); | warn "# saved lookup $database/$input/$key [$v] $mfn\n" if ($debug > 1); |
983 | } | } |
984 | } | } |
985 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |