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

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

revision 220 by dpavlin, Mon Dec 5 17:48:14 2005 UTC revision 233 by dpavlin, Tue Dec 6 16:40:18 2005 UTC
# Line 14  WebPAC::Store - Store normalized data on Line 14  WebPAC::Store - Store normalized data on
14    
15  =head1 VERSION  =head1 VERSION
16    
17  Version 0.06  Version 0.07
18    
19  =cut  =cut
20    
21  our $VERSION = '0.06';  our $VERSION = '0.07';
22    
23  =head1 SYNOPSIS  =head1 SYNOPSIS
24    
# Line 166  sub load_ds { Line 166  sub load_ds {
166    
167          $log->logconfess("can't find database name") unless ($database);          $log->logconfess("can't find database name") unless ($database);
168    
169          my $cache_file = "$cache_path/$prefix#$id";          my $cache_file = "$cache_path/$database/$prefix#$id";
170          $cache_file =~ s#//#/#go;          $cache_file =~ s#//#/#go;
171    
172  open(my $fh, '>>', '/tmp/foo');  open(my $fh, '>>', '/tmp/foo');
173  print $fh "LOAD $cache_path / $prefix # $id ==> $cache_file\n";  print $fh "LOAD $cache_path / $database / $prefix # $id ==> $cache_file\n";
174  close($fh);  close($fh);
175    
176          $log->debug("using cache_file $cache_file");          $log->debug("using cache_file $cache_file");
Legend:
Removed from v.220  
changed lines
  Added in v.233
  ViewVC Help
Powered by ViewVC 1.1.26