oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed dataform require field bug

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/Wobject/DataForm.pm
View file

@ -1087,7 +1087,7 @@ sub www_process {
if ($hadErrors && !$updating) {
WebGUI::SQL->write("delete from DataForm_entryData where DataForm_entryId=".quote($entryId));
$self->deleteCollateral("DataForm_entry","DataForm_entryId",$entryId);
$self->www_view($var);
$self->processStyle($self->view($var));
} else {
$self->sendEmail($var) if ($self->get("mailData") && !$updating);
return WebGUI::Style::process($self->processTemplate($var,$self->get("acknowlegementTemplateId")),$self->get("styleTemplateId")) if $self->defaultViewForm;

7
lib/WebGUI/Cache.pm
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;
}