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

Added dateTime and time field types.

Browse source
This commit is contained in:
JT Smith 2003-05-19 04:00:46 +00:00
parent 3966d0803a
commit c954ff636c
7 changed files with 353 additions and 77 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/FormProcessor.pm
View file

@ -170,10 +170,12 @@ The name of the form variable to retrieve.
=cut
sub dateTime {
return (date($_[0]."_date")+time($_[0]."_time"));
my $date = WebGUI::FormProcessor::date($_[0]."_date");
my $time = WebGUI::FormProcessor::time($_[0]."_time");
my $epoch = $date+$time;
return $epoch;
}
#-------------------------------------------------------------------
=head2 email ( name )
@ -469,9 +471,8 @@ sub process {
my ($name, $type, $default) = @_;
my $value;
$type = "text" if ($type eq "");
if (exists $session{form}{$name}) {
$value = &$type($name);
} else {
$value = &$type($name);
unless (defined $value) {
$value = $default;
}
if ($value =~ /^[\s]+$/) {
@ -627,7 +628,7 @@ The name of the form variable to retrieve.
=cut
sub time {
return WebGUI::DateTime::timeToEpoch($session{form}{$_[0]});
return WebGUI::DateTime::timeToSeconds($session{form}{$_[0]});
}