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

fix: Applied Martin's Date field fix to other fields + other fixes in the form fields

Browse source
This commit is contained in:
Doug Bell 2007-01-23 23:59:27 +00:00
parent 66b59adde8
commit 304cae43d7
4 changed files with 63 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lib/WebGUI/Form/TimeField.pm
View file

@ -108,7 +108,11 @@ adjusted for the user's time zone..
sub getValueFromPost {
my $self = shift;
if (!$self->get("defaultValue") || $self->get("defaultValue") =~ /^\d+$/) {
# This should probably be rewritten as a cascading ternary
if (!$self->get("defaultValue")
|| $self->get("defaultValue") =~ m/^\d+$/
|| !$self->get("value")
|| $self->get("value") =~ m/^\d+$/) {
# epoch format
return $self->session->datetime->timeToSeconds($self->session->form->param($self->get("name")))-($self->session->user->profileField("timeOffset")*3600);
} else {
@ -128,9 +132,13 @@ Renders a time field.
=cut
sub toHtml {
my $self = shift;
my $self = shift;
my $value;
if ($self->get("value") =~ /^\d+$/) {
# This should probably be rewritten as a cascading ternary
if (!$self->get("defaultValue")
|| $self->get("defaultValue") =~ m/^\d+$/
|| !$self->get("value")
|| $self->get("value") =~ m/^\d+$/) {
# Epoch format
$value = $self->session->datetime->secondsToTime($self->get("value"));
} else {
@ -159,7 +167,11 @@ Renders the field as a hidden field.
sub toHtmlAsHidden {
my $self = shift;
my $value;
if ($self->get("value") =~ /^\d+$/) {
# This should probably be rewritten as a cascading ternary
if (!$self->get("defaultValue")
|| $self->get("defaultValue") =~ m/^\d+$/
|| !$self->get("value")
|| $self->get("value") =~ m/^\d+$/) {
# Epoch format
$value = $self->session->datetime->secondsToTime($self->get("value"));
} else {