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

EMS import/export, Form::*::getValueFromPost(alt_values), and tests

Browse source
This commit is contained in:
James Tolley 2007-05-29 23:39:24 +00:00
parent 0a7e06edca
commit c09b2cae1b
46 changed files with 1728 additions and 299 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/WebGUI/Session/DateTime.pm
View file

@ -664,7 +664,7 @@ An integer which represents the amount of time for the interval.
=head3 units
A string which represents the units of the interval. The string must be 'years', 'months', 'weeks', 'days', 'hours', 'minutes', or 'seconds'.
A string which represents the units of the interval. The string must be (case-insensitive) 'years', 'months', 'weeks', 'days', 'hours', 'minutes', or 'seconds'.
=cut
@ -672,25 +672,25 @@ sub intervalToSeconds {
my $self = shift;
my $interval = shift;
my $units = shift;
if ($units eq "years") {
if (lc $units eq "years") {
return ($interval*31536000);
}
elsif ($units eq "months") {
elsif (lc $units eq "months") {
return ($interval*2592000);
}
elsif ($units eq "weeks") {
elsif (lc $units eq "weeks") {
return ($interval*604800);
}
elsif ($units eq "days") {
elsif (lc $units eq "days") {
return ($interval*86400);
}
elsif ($units eq "hours") {
elsif (lc $units eq "hours") {
return ($interval*3600);
}
elsif ($units eq "minutes") {
elsif (lc $units eq "minutes") {
return ($interval*60);
}
else {
else { # seconds
return $interval;
}
}