/[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 18 by dpavlin, Sun Jul 17 14:53:37 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 127  sub data_structure { Line 128  sub data_structure {
128          my $cache_file;          my $cache_file;
129    
130          if ($self->{'db'}) {          if ($self->{'db'}) {
131                  my @ds = $self->{'db'}->get_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 236  sub data_structure { Line 239  sub data_structure {
239    
240          }          }
241    
242          $self->{'db'}->put_gs(          $self->{'db'}->save_ds(
243                  ds => \@ds,                  ds => \@ds,
244                  current_filename => $self->{'current_filename'},                  current_filename => $self->{'current_filename'},
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.18  
changed lines
  Added in v.29

  ViewVC Help
Powered by ViewVC 1.1.26