/[webpac2]/trunk/lib/WebPAC/Normalize.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Normalize.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 710 by dpavlin, Mon Sep 25 15:26:12 2006 UTC revision 711 by dpavlin, Tue Sep 26 10:05:25 2006 UTC
# Line 977  sub save_into_lookup { Line 977  sub save_into_lookup {
977          my $mfn = $rec->{'000'}->[0] || die "mfn not defined or zero";          my $mfn = $rec->{'000'}->[0] || die "mfn not defined or zero";
978          foreach my $v ( $coderef->() ) {          foreach my $v ( $coderef->() ) {
979                  $lookup->{$k}->{$v}->{$mfn}++;                  $lookup->{$k}->{$v}->{$mfn}++;
980                  warn "# lookup $k $v $mfn saved\n";     # if ($debug > 1);                  warn "# lookup $k $v $mfn saved\n" if ($debug > 1);
981          }          }
982  }  }
983    
Legend:
Removed from v.710  
changed lines
  Added in v.711
  ViewVC Help
Powered by ViewVC 1.1.26