Bugfix 859816: DataForm - security issues
This commit is contained in:
parent
adef55be5f
commit
a62d7c3fbe
2 changed files with 3 additions and 1 deletions
|
|
@ -615,8 +615,9 @@ sub www_process {
|
|||
my $sth = WebGUI::SQL->read("select DataForm_fieldId,label,name,status,type,defaultValue,isMailField from DataForm_field
|
||||
where wobjectId=".$_[0]->get("wobjectId")." order by sequenceNumber");
|
||||
while (%row = $sth->hash) {
|
||||
my $value = WebGUI::FormProcessor::process($row{name},$row{type},$row{defaultValue});
|
||||
my $value = $row{defaultValue};
|
||||
if ($row{status} eq "required" || $row{status} eq "editable") {
|
||||
$value = WebGUI::FormProcessor::process($row{name},$row{type},$row{defaultValue});
|
||||
$value = WebGUI::Macro::filter($value);
|
||||
}
|
||||
if ($row{status} eq "required" && ($value =~ /^\s$/ || $value eq "" || not defined $value)) {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue