/[webpac2]/trunk/lib/WebPAC/DB.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/DB.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 112 by dpavlin, Tue Nov 22 08:37:55 2005 UTC revision 113 by dpavlin, Wed Nov 23 00:14:05 2005 UTC
# Line 198  sub save_ds { Line 198  sub save_ds {
198    
199          $log->logdie("save_ds without cache_file -- did you called gs_get before?") unless ($self->{'cache_file'});          $log->logdie("save_ds without cache_file -- did you called gs_get before?") unless ($self->{'cache_file'});
200    
201          foreach my $e (qw/ds current_filename headline/) {          $log->logdie("need ds") unless ($arg->{ds});
202                  $log->warn("missing $e") unless $arg->{$e};  
203            foreach my $e (qw/current_filename headline/) {
204                    my $mfn = $arg->{ds}->{000}->[0] || '?';
205                    $log->warn("missing $e in record $mfn") unless $arg->{$e};
206          }          }
207    
208          $log->debug("creating storable cache file ",$self->{'cache_file'});          $log->debug("creating storable cache file ",$self->{'cache_file'});
Legend:
Removed from v.112  
changed lines
  Added in v.113
  ViewVC Help
Powered by ViewVC 1.1.26