/[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 22 by dpavlin, Sun Jul 17 22:48:25 2005 UTC
# Line 127  sub data_structure { Line 127  sub data_structure {
127          my $cache_file;          my $cache_file;
128    
129          if ($self->{'db'}) {          if ($self->{'db'}) {
130                  my @ds = $self->{'db'}->get_ds($rec);                  my @ds = $self->{'db'}->load_ds($rec);
131                  return @ds if (@ds);                  return @ds if (@ds);
132          }          }
133    
# Line 236  sub data_structure { Line 236  sub data_structure {
236    
237          }          }
238    
239          $self->{'db'}->put_gs(          $self->{'db'}->save_ds(
240                  ds => \@ds,                  ds => \@ds,
241                  current_filename => $self->{'current_filename'},                  current_filename => $self->{'current_filename'},
242                  headline => $self->{'headline'},                  headline => $self->{'headline'},
Legend:
Removed from v.18  
changed lines
  Added in v.22
  ViewVC Help
Powered by ViewVC 1.1.26