/[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 22 by dpavlin, Sun Jul 17 22:48:25 2005 UTC revision 29 by dpavlin, Sun Jul 24 11:17:44 2005 UTC
# Line 2  package WebPAC::Normalize; Line 2  package WebPAC::Normalize;
2    
3  use warnings;  use warnings;
4  use strict;  use strict;
5    use base 'WebPAC::Common';
6  use Data::Dumper;  use Data::Dumper;
7    
8  =head1 NAME  =head1 NAME
# Line 78  Create new normalisation object Line 79  Create new normalisation object
79                          return length($_);                          return length($_);
80                  }, ...                  }, ...
81          },          },
82          db => $webpac_db_obj,          db => $db_obj,
83          lookup_regex => $lookup->regex,          lookup_regex => $lookup->regex,
84    );    );
85    
# Line 128  sub data_structure { Line 129  sub data_structure {
129    
130          if ($self->{'db'}) {          if ($self->{'db'}) {
131                  my @ds = $self->{'db'}->load_ds($rec);                  my @ds = $self->{'db'}->load_ds($rec);
132                  return @ds if (@ds);                  $log->debug("load_ds( rec = ", sub { Dumper($rec) }, ") = ", sub { Dumper(@ds) });
133                    return @ds if ($#ds > 0);
134                    $log->debug("cache miss, creating");
135          }          }
136    
137          undef $self->{'currnet_filename'};          undef $self->{'currnet_filename'};
# Line 242  sub data_structure { Line 245  sub data_structure {
245                  headline => $self->{'headline'},                  headline => $self->{'headline'},
246          ) if ($self->{'db'});          ) if ($self->{'db'});
247    
248            $log->debug("ds: ", sub { Dumper(@ds) });
249    
250          return @ds;          return @ds;
251    
252  }  }
Legend:
Removed from v.22  
changed lines
  Added in v.29
  ViewVC Help
Powered by ViewVC 1.1.26