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

a ton of $session fixes (thanks to Colin), and a new $session checker, that supposedly, shouldn't be needed now. It can be backed out, however, easily.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-16 22:45:21 +00:00
parent 5fadc70eac
commit 09483e18c5
208 changed files with 505 additions and 533 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Session/DateTime.pm
View file

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

2
lib/WebGUI/Session/ErrorHandler.pm
View file

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

4
lib/WebGUI/Session/Form.pm
View file

@ -98,7 +98,7 @@ A reference to the current session.
sub new {
my $class = shift;
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
bless {_session=>$session}, $class;
}
@ -149,7 +149,7 @@ sub process {
my $value;
$type = ucfirst($type);
$type = "Text" if ($type eq "");
$value = $self->$type($self->session,$name);
$value = $self->$type($name);
unless (defined $value) {
return $default;
}

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

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

2
lib/WebGUI/Session/Icon.pm
View file

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

2
lib/WebGUI/Session/Id.pm
View file

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

2
lib/WebGUI/Session/Privilege.pm
View file

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

2
lib/WebGUI/Session/Scratch.pm
View file

@ -148,7 +148,7 @@ The current session.
sub new {
my $class = shift;
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
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;
}

2
lib/WebGUI/Session/Setting.pm
View file

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

2
lib/WebGUI/Session/Stow.pm
View file

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

2
lib/WebGUI/Session/Style.pm
View file

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

2
lib/WebGUI/Session/Url.pm
View file

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

2
lib/WebGUI/Session/Var.pm
View file

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