removal of dumpSession.
This commit is contained in:
parent
7d1dfed519
commit
4a3121960f
199 changed files with 379 additions and 404 deletions
|
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -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" );
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
}
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
}
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
}
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -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 "") {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue