/[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 216 by dpavlin, Mon Dec 5 17:46:57 2005 UTC revision 217 by dpavlin, Mon Dec 5 17:47:51 2005 UTC
# Line 11  WebPAC::Normalize - data mungling for no Line 11  WebPAC::Normalize - data mungling for no
11    
12  =head1 VERSION  =head1 VERSION
13    
14  Version 0.02  Version 0.03
15    
16  =cut  =cut
17    
18  our $VERSION = '0.02';  our $VERSION = '0.03';
19    
20  =head1 SYNOPSIS  =head1 SYNOPSIS
21    
# Line 143  sub data_structure { Line 143  sub data_structure {
143          my $cache_file;          my $cache_file;
144    
145          if ($self->{'db'}) {          if ($self->{'db'}) {
146                  my $ds = $self->{'db'}->load_ds( $mfn );                  my $ds = $self->{'db'}->load_ds( id => $mfn );
147                  $log->debug("load_ds( rec = ", sub { Dumper($rec) }, ") = ", sub { Dumper($ds) });                  $log->debug("load_ds( rec = ", sub { Dumper($rec) }, ") = ", sub { Dumper($ds) });
148                  return $ds if ($ds);                  return $ds if ($ds);
149                  $log->debug("cache miss, creating");                  $log->debug("cache miss, creating");

Legend:
Removed from v.216  
changed lines
  Added in v.217

  ViewVC Help
Powered by ViewVC 1.1.26