more bug fixes

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

View file

@ -1439,7 +1439,7 @@ sub walkTree {
$groupIdEdit = $wobject->{groupIdEdit};
$ownerId = $wobject->{ownerId};
}
$className = 'WebGUI::Asset::Wobject::'.$wobject->{namespace};
my $className = 'WebGUI::Asset::Wobject::'.$wobject->{namespace};
WebGUI::SQL->write("insert into asset (assetId, parentId, lineage, className, state, title, menuTitle, url, startDate,
endDate, isHidden, ownerUserId, groupIdView, groupIdEdit, encryptPage, assetSize) values (".quote($wobjectId).",
".quote($pageId).", ".quote($wobjectLineage).", ".quote($className).",'published',".quote($wobject->{title}||'Untitled').",

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();
}
#-------------------------------------------------------------------