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

Started deprecating WebGUI::Session::Http

Browse source
This commit is contained in:
Patrick Donelan 2010-04-06 20:02:33 -04:00
parent 72017cf83f
commit 68bbca1808
4 changed files with 20 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -18,6 +18,12 @@ package WebGUI::Session::Http;
use strict;
use WebGUI::Utility;
sub _deprecated {
my $alt = shift;
my $method = (caller(1))[3];
Carp::carp("$method is deprecated. Use 'WebGUI::$alt' instead.");
}
=head1 NAME
Package WebGUI::Session::Http
@ -91,7 +97,8 @@ Retrieves the cookies from the HTTP header and returns a hash reference containi
sub getCookies {
my $self = shift;
return $self->session->request ? $self->session->request->cookies : {};
_deprecated('Request::cookies');
return $self->session->request->cookies;
}
@ -264,7 +271,7 @@ sub sendHeader {
# send webgui session cookie
my $cookieName = $config->getCookieName;
$self->setCookie($cookieName,$var->getId, $config->getCookieTTL, $config->get("cookieDomain")) unless $var->getId eq $self->getCookies->{$cookieName};
$self->setCookie($cookieName,$var->getId, $config->getCookieTTL, $config->get("cookieDomain")) unless $var->getId eq $request->cookies->{$cookieName};
$self->setNoHeader(1);
my %params;