more bug fixes
This commit is contained in:
parent
864206b05b
commit
536e2679e8
2 changed files with 11 additions and 2 deletions
|
|
@ -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').",
|
||||
|
|
|
|||
|
|
@ -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();
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue