/[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 692 by dpavlin, Sun Sep 24 21:13:40 2006 UTC revision 693 by dpavlin, Sun Sep 24 21:13:45 2006 UTC
# Line 225  sub parse_lookups { Line 225  sub parse_lookups {
225                          $log->debug(">>> ", $Element->snext_sibling);                          $log->debug(">>> ", $Element->snext_sibling);
226          });          });
227    
228          my $source = $Document->serialize;          my $normalize_source = $Document->serialize;
229          $log->debug("create: ", dump($self->{_lookup_create}) );          $log->debug("create: ", dump($self->{_lookup_create}) );
230          $log->debug("normalize: $source");          $log->debug("normalize: $normalize_source");
231    
232          $self->{_normalize_source}->{$database}->{$input} = $source;          $self->{_normalize_source}->{$database}->{$input} = $normalize_source;
233    
234          if ($self->{debug}) {          if ($self->{debug}) {
235                  my $Dumper = PPI::Dumper->new( $Document );                  my $Dumper = PPI::Dumper->new( $Document );
Legend:
Removed from v.692  
changed lines
  Added in v.693
  ViewVC Help
Powered by ViewVC 1.1.26