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

delete WebGUI::Session::Os

Browse source
This commit is contained in:
Graham Knop 2010-04-16 20:13:42 -05:00
parent 7ff307cabe
commit 1150528b8a
5 changed files with 4 additions and 162 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI/Session.pm
View file

@ -68,7 +68,6 @@ B<NOTE:> It is important to distinguish the difference between a WebGUI session
$session->icon
$session->id
$session->output
$session->os
$session->privilege
$session->request
$session->response
@ -145,7 +144,7 @@ sub close {
# Kill circular references. The literal list is so that the order
# can be explicitly shuffled as necessary.
foreach my $key (qw/_asset _datetime _icon _slave _db _env _form _http _id _output _os _privilege _scratch _setting _stow _style _url _user _var _cache _errorHandler _response _request/) {
foreach my $key (qw/_asset _datetime _icon _slave _db _env _form _http _id _output _privilege _scratch _setting _stow _style _url _user _var _cache _errorHandler _response _request/) {
delete $self->{$key};
}
}
@ -454,7 +453,7 @@ Uses simple session vars. See WebGUI::Session::Var::new() for more details.
sub open {
my ($class, $c, $env, $sessionId, $noFuss) = @_;
my $config = ref $c ? $c : WebGUI::Config->new($c);
my $self = {_config=>$config }; # TODO - if we store reference here, should we weaken WebGUI->config?
my $self = { _config => $config };
bless $self, $class;
if ($env) {
@ -493,23 +492,6 @@ sub output {
}
#-------------------------------------------------------------------
=head2 os ( )
Returns a WebGUI::Session::Os object.
=cut
sub os {
my $self = shift;
unless (exists $self->{_os}) {
$self->{_os} = WebGUI::Session::Os->new();
}
return $self->{_os};
}
#-------------------------------------------------------------------
=head2 privilege ( )