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

migrating datetime api for session

Browse source
This commit is contained in:
JT Smith 2006-01-10 17:06:41 +00:00
parent c4354c1ff1
commit 9520b4ce48
52 changed files with 435 additions and 332 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Form/Date.pm
View file

@ -81,7 +81,7 @@ sub definition {
defaultValue=>WebGUI::International::get("479","WebGUI")
},
defaultValue=>{
defaultValue=>time()
defaultValue=$self->session->datetime->time()
},
maxlength=>{
defaultValue=> 10
@ -109,7 +109,7 @@ Return the date in a human readable format for the Profile system.
sub displayValue {
my ($self) = @_;
return WebGUI::DateTime::epochToHuman($self->get("value"),"%z");
return $self->session->datetime->epochToHuman($self->get("value"),"%z");
}
#-------------------------------------------------------------------
@ -122,7 +122,7 @@ Returns a validated form post result. If the result does not pass validation, it
sub getValueFromPost {
my $self = shift;
return WebGUI::DateTime::setToEpoch($self->session->request->param($self->get("name")));
return $self->session->datetime->setToEpoch($self->session->request->param($self->get("name")));
}
#-------------------------------------------------------------------
@ -139,7 +139,7 @@ sub toHtml {
$self->get("value") = '';
}
else {
$self->get("value") = WebGUI::DateTime::epochToSet($self->get("value"));
$self->get("value") = $self->session->datetime->epochToSet($self->get("value"));
}
my $language = WebGUI::International::getLanguage($self->session->user->profileField("language"),"languageAbbreviation");
unless ($language) {
@ -173,7 +173,7 @@ sub toHtmlAsHidden {
my $self = shift;
return WebGUI::Form::Hidden->new(
name=>$self->get("name"),
value=>WebGUI::DateTime::epochToSet($self->get("value"))
value=>$self->session->datetime->epochToSet($self->get("value"))
)->toHtmlAsHidden;
}

8
lib/WebGUI/Form/DateTime.pm
View file

@ -76,7 +76,7 @@ sub definition {
defaultValue=>WebGUI::International::get("972","WebGUI")
},
defaultValue=>{
defaultValue=>time()
defaultValue=$self->session->datetime->time()
},
maxlength=>{
defaultValue=> 19
@ -101,7 +101,7 @@ Returns a validated form post result. If the result does not pass validation, it
sub getValueFromPost {
my $self = shift;
return WebGUI::DateTime::setToEpoch($self->session->request->param($self->get("name")));
return $self->session->datetime->setToEpoch($self->session->request->param($self->get("name")));
}
#-------------------------------------------------------------------
@ -114,7 +114,7 @@ Renders a date picker control.
sub toHtml {
my $self = shift;
my $value = WebGUI::DateTime::epochToSet($self->get("value"),1);
my $value = $self->session->datetime->epochToSet($self->get("value"),1);
my $language = WebGUI::International::getLanguage($self->session->user->profileField("language"),"languageAbbreviation");
unless ($language) {
$language = WebGUI::International::getLanguage("English","languageAbbreviation");
@ -155,7 +155,7 @@ sub toHtmlAsHidden {
my $self = shift;
return WebGUI::Form::Hidden->new(
name=>$self->get("name"),
value=>WebGUI::DateTime::epochToSet($self->get("value"),1)
value=>$self->session->datetime->epochToSet($self->get("value"),1)
)->toHtmlAsHidden;
}

6
lib/WebGUI/Form/Interval.pm
View file

@ -90,7 +90,7 @@ Returns either the interval that was posted (in seconds) or if nothing comes bac
sub getValueFromPost {
my $self = shift;
return WebGUI::DateTime::intervalToSeconds($self->session->request->param($self->get("name")."_interval"),$self->session->request->param($self->get("name")."_units")) || 0;
return $self->session->datetime->intervalToSeconds($self->session->request->param($self->get("name")."_interval"),$self->session->request->param($self->get("name")."_units")) || 0;
}
#-------------------------------------------------------------------
@ -112,7 +112,7 @@ sub toHtml {
'weeks'=>WebGUI::International::get(701),
'months'=>WebGUI::International::get(702),
'years'=>WebGUI::International::get(703));
my ($interval, $units) = WebGUI::DateTime::secondsToInterval($self->get("value"));
my ($interval, $units) = $self->session->datetime->secondsToInterval($self->get("value"));
# not sure why, but these things need to be defined like this or
# they fail under some circumstnaces
my $cmd = "WebGUI::Form::Integer";
@ -143,7 +143,7 @@ Returns the field as hidden controls rather than displayable controls.
sub toHtmlAsHidden {
my $self = shift;
my ($interval, $units) = WebGUI::DateTime::secondsToInterval($self->get("value"));
my ($interval, $units) = $self->session->datetime->secondsToInterval($self->get("value"));
return WebGUI::Form::Hidden->new(
name=>$self->get("name").'_interval',
value=>$interval

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

@ -95,7 +95,7 @@ Returns the number of seconds since 00:00:00 on a 24 hour clock. Note, this will
sub getValueFromPost {
my $self = shift;
return WebGUI::DateTime::timeToSeconds($self->session->request->param($self->get("name")))-($self->session->user->profileField("timeOffset")*3600);
return $self->session->datetime->timeToSeconds($self->session->request->param($self->get("name")))-($self->session->user->profileField("timeOffset")*3600);
}
#-------------------------------------------------------------------
@ -108,7 +108,7 @@ Renders a time field.
sub toHtml {
my $self = shift;
my $value = WebGUI::DateTime::secondsToTime($self->get("value"));
my $value = $self->session->datetime->secondsToTime($self->get("value"));
$self->session->style->setScript($self->session->config->get("extrasURL").'/inputCheck.js',{ type=>'text/javascript' });
$self->get("extras") .= ' onkeyup="doInputCheck(this.form.'.$self->get("name").',\'0123456789:\')"';
return $self->SUPER::toHtml

2
lib/WebGUI/Form/TimeZone.pm
View file

@ -70,7 +70,7 @@ Renders a database connection picker control.
sub toHtml {
my $self = shift;
$self->get("options") = WebGUI::DateTime::getTimeZones();
$self->get("options") = $self->session->datetime->getTimeZones();
return $self->SUPER::toHtml();
}