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

34
lib/WebGUI/Session.pm
View file

@ -19,11 +19,13 @@ use Apache2::Request;
use WebGUI::Config;
use WebGUI::SQL;
use WebGUI::User;
use WebGUI::Session::DateTime;
use WebGUI::Session::Env;
use WebGUI::Session::ErrorHandler;
use WebGUI::Session::Form;
use WebGUI::Session::Http;
use WebGUI::Session::Os;
use WebGUI::Session::Privilege;
use WebGUI::Session::Scratch;
use WebGUI::Session::Setting;
use WebGUI::Session::Stow;
@ -132,6 +134,22 @@ sub config {
}
#-------------------------------------------------------------------
=head2 datetime ()
Returns a WebGUI::Session::DateTime object.
=cut
sub datetime {
my $self = shift;
if (exists $self->{_datetime}) {
$self->{_datetime} = WebGUI::Session::DateTime->new($session);
}
return $self->{_datetime};
}
#-------------------------------------------------------------------
=head2 db ( )
@ -296,6 +314,22 @@ sub os {
}
#-------------------------------------------------------------------
=head2 privilege ( )
Returns a WebGUI::Session::Privilege object.
=cut
sub privilege {
my $self = shift;
unless (exists $self->{_privilege}) {
$self->{_privilege} = WebGUI::Session::Privilege->new($session);
}
return $self->{_privilege};
}
#-------------------------------------------------------------------
=head2 request ( )