simple dualism

This commit is contained in:
Patrick Donelan 2009-10-09 21:02:10 +11:00
parent eb446e7eed
commit be755abaa9
5 changed files with 604 additions and 465 deletions

View file

@ -464,7 +464,7 @@ sub open {
my $config = WebGUI::Config->new($webguiRoot,$configFile);
my $self = {_config=>$config, _server=>$server};
bless $self , $class;
$self->{_request} = WebGUI::Session::Request->new( r => $request, env => {}, session => $self ) if $request;
$self->{_request} = WebGUI::Session::Request->new( r => $request, session => $self ) if $request;
my $sessionId = shift || $self->http->getCookies->{$config->getCookieName} || $self->id->generate;
$sessionId = $self->id->generate unless $self->id->valid($sessionId);
my $noFuss = shift;