Session/Http: bad package name

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

View file

@ -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};

View file

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

View file

@ -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 {