--- trunk/lib/WebPAC/Store.pm 2006/09/26 14:07:20 716 +++ trunk/lib/WebPAC/Store.pm 2006/10/01 20:14:14 734 @@ -14,11 +14,11 @@ =head1 VERSION -Version 0.12 +Version 0.13 =cut -our $VERSION = '0.12'; +our $VERSION = '0.13'; =head1 SYNOPSIS @@ -180,7 +180,7 @@ my $input = $args->{input} || ''; - my $cache_file = "$cache_path/$database/$input/$id"; + my $cache_file = "$cache_path/ds/$database/$input/$id"; $cache_file =~ s#//#/#go; $log->debug("using cache_file $cache_file"); @@ -240,7 +240,7 @@ my $input = $args->{input} || ''; - my $cache_file = $self->{path} . "/$database/$input/"; + my $cache_file = $self->{path} . "/ds/$database/$input/"; $cache_file =~ s#//#/#go; mkpath($cache_file) unless (-d $cache_file);