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

Merging bugfix into HEAD

Browse source
This commit is contained in:
Roy Johnson 2006-01-09 20:15:28 +00:00
parent 024514c549
commit 1a959e2681
2 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -16,6 +16,7 @@ use Tie::IxHash;
use WebGUI::DateTime;
use WebGUI::Form;
use WebGUI::FormProcessor;
use WebGUI::HTML;
use WebGUI::HTMLForm;
use WebGUI::HTTP;
use WebGUI::Icon;
@ -574,6 +575,16 @@ sub purge {
$self->SUPER::purge();
}
#-------------------------------------------------------------------
sub sanitizeUserInput {
my $self = shift;
my $content = shift;
my $contentType = shift || "text";
my $msg = WebGUI::HTML::format($content, $contentType);
return $msg;
}
#-------------------------------------------------------------------
sub sendEmail {
my $self = shift;
@ -1047,6 +1058,7 @@ sub www_process {
if ($row{status} eq "required" || $row{status} eq "editable") {
$value = $self->session->form->process($row{name},$row{type},$row{defaultValue});
WebGUI::Macro::filter(\$value);
$value = $self->sanitizeUserInput($value) unless ($row{type} eq "HTMLArea");
}
if ($row{status} eq "required" && ($value =~ /^\s$/ || $value eq "" || not defined $value)) {
push (@errors,{