/[webpac2]/trunk/lib/WebPAC/Parser.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/Parser.pm

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

revision 706 by dpavlin, Mon Sep 25 14:06:49 2006 UTC revision 707 by dpavlin, Mon Sep 25 15:26:12 2006 UTC
# Line 296  sub _parse_lookups { Line 296  sub _parse_lookups {
296    
297                          $log->debug("key = $key");                          $log->debug("key = $key");
298    
299                          my $create = '                          my $create = "save_into_lookup('$key', $e[7] $e[8] );\n";
                                 $coderef = ' . $e[7] . $e[8] . ';  
                                 foreach my $v ($coderef->()) {  
                                         next unless (defined($v) && $v ne \'\');  
                                         push @{ $lookup->{\'' . $key . '\'}->{$v} }, $mfn;  
                                 }  
                         ';  
300    
301                          $log->debug("create: $create");                          $log->debug("create: $create");
302    

Legend:
Removed from v.706  
changed lines
  Added in v.707

  ViewVC Help
Powered by ViewVC 1.1.26