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

fixed a bunch of bugs

Browse source
This commit is contained in:
JT Smith 2005-05-23 15:02:23 +00:00
parent 3b5a7d6f52
commit fd57cbaa51
8 changed files with 25 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Session.pm
View file

@ -118,7 +118,12 @@ sub _setupUserInfo {
}
$session{user} = \%user;
if ($session{env}{MOD_PERL}) {
my $r = Apache->request;
my $r;
if ($$mod_perl::VERSION >= 1.999023) {
$r = Apache2::RequestUtil->request;
} else {
$r = Apache->request;
}
if(defined($r)) {
$r->user($session{user}{username});
}