/[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 708 by dpavlin, Mon Sep 25 16:07:08 2006 UTC
# Line 208  sub _read_sources { Line 208  sub _read_sources {
208    
209    $parser->_parse_lookups($database,$input,$path,$source);    $parser->_parse_lookups($database,$input,$path,$source);
210    
211  Called for each normalize source (rules) in each input by L</read_sources>  Called for each normalize source (rules) in each input by L</_read_sources>
212    
213  It will report invalid databases and inputs in error log after parsing.  It will report invalid databases and inputs in error log after parsing.
214    
# 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.708
  ViewVC Help
Powered by ViewVC 1.1.26