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

Session/Http: bad package name

Browse source 
Session/Var: bad API, getCookie('key') vs getCookies->{'key'}
Session.pm: used object variable vs method.
This commit is contained in:
Colin Kuskie 2006-01-14 06:34:34 +00:00
parent 89f60a8e03
commit 68c3075ccb
3 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Session.pm
View file

@ -537,7 +537,7 @@ sub user {
delete $self->{_stow}; delete $self->{_stow};
$self->{_user} = $option->{user} || WebGUI::User->new($self, $self->{_var}{userId}); $self->{_user} = $option->{user} || WebGUI::User->new($self, $self->{_var}{userId});
} elsif (!exists $self->{_user}) { } elsif (!exists $self->{_user}) {
$self->{_user} = WebGUI::User->new($self, $self->{_var}{userId}); $self->{_user} = WebGUI::User->new($self, $self->var->get('userId'));
} }
$self->{_request}->user($self->{_user}->username) if ($self->{_request}); $self->{_request}->user($self->{_user}->username) if ($self->{_request});
return $self->{_user}; return $self->{_user};

2
lib/WebGUI/Session/Http.pm
View file

@ -1,4 +1,4 @@
package WebGUI::Session::HTTP; package WebGUI::Session::Http;
=head1 LEGAL =head1 LEGAL

2
lib/WebGUI/Session/Var.pm
View file

@ -133,7 +133,7 @@ sub new {
my $class = shift; my $class = shift;
my $session = shift; my $session = shift;
my $self = {_session=>$session}, $class; my $self = {_session=>$session}, $class;
my $sessionId = shift || $self->http->getCookie("wgSession"); my $sessionId = shift || $session->http->getCookies->{"wgSession"};
if ($sessionId eq "") { if ($sessionId eq "") {
$self->start(1); $self->start(1);
} else { } else {