--- trunk/lib/WebPAC/Store.pm 2005/12/05 17:48:14 220 +++ trunk/lib/WebPAC/Store.pm 2005/12/06 16:40:18 233 @@ -14,11 +14,11 @@ =head1 VERSION -Version 0.06 +Version 0.07 =cut -our $VERSION = '0.06'; +our $VERSION = '0.07'; =head1 SYNOPSIS @@ -166,11 +166,11 @@ $log->logconfess("can't find database name") unless ($database); - my $cache_file = "$cache_path/$prefix#$id"; + my $cache_file = "$cache_path/$database/$prefix#$id"; $cache_file =~ s#//#/#go; open(my $fh, '>>', '/tmp/foo'); -print $fh "LOAD $cache_path / $prefix # $id ==> $cache_file\n"; +print $fh "LOAD $cache_path / $database / $prefix # $id ==> $cache_file\n"; close($fh); $log->debug("using cache_file $cache_file");