Begin moving Fork over to the new Session API. Tests are still failing.

This commit is contained in:
Colin Kuskie 2010-11-03 11:41:56 -07:00
parent 53280bacc0
commit 50a9dd08e0

View file

@ -507,7 +507,6 @@ sub request {
my $session = $self->session;
my $config = $session->config;
return {
webguiRoot => $config->getWebguiRoot,
configFile => $config->getFilename,
sessionId => $session->getId,
module => $module,
@ -541,8 +540,8 @@ Internal class method. Expects a hash of arguments describing what to run.
sub runRequest {
my ( $class, $args ) = @_;
my ( $root, $config, $sid ) = @{$args}{qw(webguiRoot configFile sessionId)};
my $session = WebGUI::Session->open( $root, $config, undef, undef, $sid );
my ( $config, $sid ) = @{$args}{qw(configFile sessionId)};
my $session = WebGUI::Session->open( $config, undef, $sid );
my $id = $args->{id};
my $self = $class->new( $session, $id );
$self->set( { startTime => time } );