removal of dumpSession.

This commit is contained in:
Matthew Wilson 2006-01-26 05:39:16 +00:00
parent 7d1dfed519
commit 4a3121960f
199 changed files with 379 additions and 404 deletions

View file

@ -629,7 +629,7 @@ A reference to the current session.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
bless {_session=>$session}, $class;
}

View file

@ -315,7 +315,7 @@ An active WebGUI::Session object.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
unless (Log::Log4perl->initialized()) {
$Log::Log4perl::caller_depth++;
Log::Log4perl->init( $session->config->getWebguiRoot."/etc/log.conf" );

View file

@ -111,7 +111,7 @@ A reference to the current session.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
bless {_session=>$session}, $class;
}

View file

@ -174,7 +174,7 @@ A reference to the current session.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
bless {_session=>$session}, $class;
}

View file

@ -501,7 +501,7 @@ A reference to the current session.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
bless {_session=>$session}, $class;
}

View file

@ -89,7 +89,7 @@ A reference to the current session.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
srand;
bless {_session=>$session}, $class;
}

View file

@ -113,7 +113,7 @@ A reference to the current session.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
bless {_session=>$session}, $class;
}

View file

@ -148,7 +148,7 @@ The current session.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $data = $session->db->buildHashRef("select name,value from userSessionScratch where sessionId=".$session->db->quote($session->getId));
bless {_session=>$session,_sessionId=>$session->getId, _data=>$data}, $class;
}

View file

@ -114,7 +114,7 @@ A reference to the current WebGUI::Session.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $settings = $session->db->buildHashRef("select * from settings");
bless {_settings=>$settings, _session=>$session}, $class;
}

View file

@ -125,7 +125,7 @@ A reference to the session.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
bless {_session=>$session}, $class;
}

View file

@ -144,7 +144,7 @@ A reference to the current session.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
bless {_session=>$session}, $class;
}

View file

@ -259,7 +259,7 @@ A reference to the current session.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
bless {_session=>$session}, $class;
}

View file

@ -159,7 +159,7 @@ A reference to the session.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $self = bless {_session=>$session}, $class;
my $sessionId = shift;
if ($sessionId eq "") {