fixed dataform require field bug

added cache root option
This commit is contained in:
JT Smith 2005-04-21 01:41:09 +00:00
parent 4e283330f3
commit 9bd63571a9
4 changed files with 32 additions and 3 deletions

View file

@ -111,7 +111,12 @@ sub new {
my $class = shift;
my $key = shift;
my $namespace = shift || $session{config}{configFile};
$cache = new Cache::FileCache({namespace=>$namespace, auto_purge_on_set=>1});
my %options = (
namespace=>$namespace,
auto_purge_on_set=>1
);
$options{cache_root} = $session{config}{fileCacheRoot} if ($session{config}{fileCacheRoot});
$cache = new Cache::FileCache(\%options);
bless {_cache => $cache, _key => $key}, $class;
}