/[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 698 by dpavlin, Mon Sep 25 11:14:53 2006 UTC revision 699 by dpavlin, Mon Sep 25 12:51:17 2006 UTC
# Line 92  sub read_sources { Line 92  sub read_sources {
92          $self->{config}->iterate_inputs( sub {          $self->{config}->iterate_inputs( sub {
93                  my ($input, $database) = @_;                  my ($input, $database) = @_;
94    
95                    $log->debug("database: $database input = ", dump($input));
96    
97                  my @normalize;                  my @normalize;
98    
99                  if (ref($input->{normalize}) eq 'ARRAY') {                  if (ref($input->{normalize}) eq 'ARRAY') {
# Line 100  sub read_sources { Line 102  sub read_sources {
102                          @normalize = ( $input->{normalize} );                          @normalize = ( $input->{normalize} );
103                  }                  }
104    
105    $log->warn("normalize = ",dump(@normalize));
106    
107                  foreach my $normalize (@normalize) {                  foreach my $normalize (@normalize) {
108    
109                          my $path = $normalize->{path};                          my $path = $normalize->{path};
# Line 333  sub depends { Line 337  sub depends {
337          my $self = shift;          my $self = shift;
338          my ($database,$input) = @_;          my ($database,$input) = @_;
339          $self->_get_logger->debug("depends($database,$input)");          $self->_get_logger->debug("depends($database,$input)");
340          return unless defined( $self->{depends}->{ _q($database) }->{ _q($input) } );          return unless (
341                    defined( $self->{depends}->{ _q($database) } ) &&
342                    defined( $self->{depends}->{ _q($database) }->{ _q($input) } )
343            );
344          return $self->{depends}->{ _q($database) }->{ _q($input) };          return $self->{depends}->{ _q($database) }->{ _q($input) };
345  }  }
346    
Legend:
Removed from v.698  
changed lines
  Added in v.699
  ViewVC Help
Powered by ViewVC 1.1.26