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

Added form field validation.

Browse source
This commit is contained in:
JT Smith 2003-03-08 20:28:24 +00:00
parent 41cd27de26
commit dc823244a3
1 changed files with 25 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

33
lib/WebGUI/Wobject.pm
View file

@ -73,6 +73,20 @@ sub _getNextSequenceNumber {
return ($sequenceNumber+1); return ($sequenceNumber+1);
} }
#-------------------------------------------------------------------
sub _validateField {
my ($key, $type) = @_;
if ($type eq "date") {
return WebGUI::DateTime::setToEpoch($session{form}{$key});
} elsif ($type eq "interval") {
return (WebGUI::DateTime::intervalToSeconds($session{form}{$key."_interval"},$session{form}{$key."_units"}) || 0);
} elsif ($type eq "HTMLArea") {
return WebGUI::HTML::cleanSegment($session{form}{$key});
} else {
return $session{form}{$key};
}
}
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 confirm ( message, yesURL, [ , noURL, vitalComparison ] ) =head2 confirm ( message, yesURL, [ , noURL, vitalComparison ] )
@ -630,7 +644,8 @@ sub new {
defaultValue=>0 defaultValue=>0
} , } ,
editTimeout=>{ editTimeout=>{
defaultValue=>1 defaultValue=>1,
fieldType=>"interval"
}, },
filterPost=>{ filterPost=>{
defaultValue=>"javascript", defaultValue=>"javascript",
@ -642,7 +657,9 @@ sub new {
displayTitle=>{ displayTitle=>{
defaultValue=>1 defaultValue=>1
}, },
description=>{}, description=>{
fieldType=>"HTMLArea"
},
pageId=>{ pageId=>{
defaultValue=>$session{page}{pageId} defaultValue=>$session{page}{pageId}
}, },
@ -650,10 +667,12 @@ sub new {
defaultValue=>1 defaultValue=>1
}, },
startDate=>{ startDate=>{
defaultValue=>$session{page}{startDate} defaultValue=>$session{page}{startDate},
fieldType=>"date"
}, },
endDate=>{ endDate=>{
defaultValue=>$session{page}{endDate} defaultValue=>$session{page}{endDate},
fieldType=>"date"
}, },
sequenceNumber=>{} sequenceNumber=>{}
}; };
@ -1283,15 +1302,13 @@ sub www_editSave {
my %set; my %set;
foreach (keys %{$_[0]->{_wobjectProperties}}) { foreach (keys %{$_[0]->{_wobjectProperties}}) {
if (exists $session{form}{$_}) { if (exists $session{form}{$_}) {
$set{$_} = $session{form}{$_} || $_[0]->{_wobjectProperties}{$_}{defaultValue}; $set{$_} = _validateField($_,$_[0]->{_wobjectProperties}{$_}{fieldType}) || $_[0]->{_wobjectProperties}{$_}{defaultValue};
} }
} }
$set{title} = $session{form}{title} || $_[0]->name; $set{title} = $session{form}{title} || $_[0]->name;
$set{description} = WebGUI::HTML::cleanSegment($set{description});
$set{editTimeout} = WebGUI::DateTime::intervalToSeconds($session{form}{editTimeout_interval},$session{form}{editTimeout_units}) || 0;
foreach (keys %{$_[0]->{_extendedProperties}}) { foreach (keys %{$_[0]->{_extendedProperties}}) {
if (exists $session{form}{$_}) { if (exists $session{form}{$_}) {
$set{$_} = $session{form}{$_} || $_[0]->{_extendedProperties}{$_}{defaultValue}; $set{$_} = _validateField($_,$_[0]->{_extendedProperties}{$_}{fieldType}) || $_[0]->{_extendedProperties}{$_}{defaultValue};
} }
} }
%set = (%set, %{$_[1]}); %set = (%set, %{$_[1]});