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

more bug fixes

Browse source
This commit is contained in:
JT Smith 2005-02-18 19:53:34 +00:00
parent 864206b05b
commit 536e2679e8
2 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Session.pm
View file

@ -153,10 +153,19 @@ Cleans up a WebGUI session information from memory and disconnects from any reso
=cut
sub close {
$session{'dbh'}->disconnect();
$session{asset}->DESTROY() if (exists $session{asset});
foreach my $slavedbh (@{$session{slave}}) {
$slavedbh->disconnect();
}
$session{dbh}->disconnect() if (exists $session{dbh});
$session{cgi}->DESTROY() if (exists $session{cgi});
undef %session;
$ENV{PATH_INFO} = "/"; #work around to fix a bug in mod_perl (win32)
}
#-------------------------------------------------------------------
sub DESTROY {
WebGUI::Session::close();
}
#-------------------------------------------------------------------