diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm index 09a9696ae..b304ad731 100644 --- a/lib/WebGUI/Session.pm +++ b/lib/WebGUI/Session.pm @@ -537,7 +537,7 @@ sub user { delete $self->{_stow}; $self->{_user} = $option->{user} || WebGUI::User->new($self, $self->{_var}{userId}); } 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}); return $self->{_user}; diff --git a/lib/WebGUI/Session/Http.pm b/lib/WebGUI/Session/Http.pm index bd756aa26..fb4a1643c 100644 --- a/lib/WebGUI/Session/Http.pm +++ b/lib/WebGUI/Session/Http.pm @@ -1,4 +1,4 @@ -package WebGUI::Session::HTTP; +package WebGUI::Session::Http; =head1 LEGAL diff --git a/lib/WebGUI/Session/Var.pm b/lib/WebGUI/Session/Var.pm index 037532eb8..f99edaa97 100644 --- a/lib/WebGUI/Session/Var.pm +++ b/lib/WebGUI/Session/Var.pm @@ -133,7 +133,7 @@ sub new { my $class = shift; my $session = shift; my $self = {_session=>$session}, $class; - my $sessionId = shift || $self->http->getCookie("wgSession"); + my $sessionId = shift || $session->http->getCookies->{"wgSession"}; if ($sessionId eq "") { $self->start(1); } else {