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

Adding Ben Simpson's new persistence layer.

Browse source
This commit is contained in:
JT Smith 2003-05-07 02:13:26 +00:00
parent af4efc0333
commit d48579b177
16 changed files with 2127 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Operation/Collateral.pm
View file

@ -20,6 +20,7 @@ eval " use Image::Magick; "; $hasImageMagick=0 if $@;
use Exporter;
use strict;
use WebGUI::Collateral;
use WebGUI::CollateralFolder;
use WebGUI::DateTime;
use WebGUI::HTMLForm;
use WebGUI::Icon;
@ -96,12 +97,12 @@ sub www_deleteCollateralFolder {
sub www_deleteCollateralFolderConfirm {
return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));
return WebGUI::Privilege::vitalComponent() unless ($session{scratch}{collateralFolderId} > 999);
my ($parent) = WebGUI::SQL->quickArray("select parentId from collateralFolder
where collateralFolderId=".$session{scratch}{collateralFolderId});
WebGUI::SQL->write("update collateral set collateralFolderId=$parent
where collateralFolderId=$session{scratch}{collateralFolderId}");
WebGUI::SQL->write("delete from collateralFolder where collateralFolderId=".$session{scratch}{collateralFolderId});
WebGUI::Session::setScratch("collateralFolderId",$parent);
my $folders = WebGUI::CollateralFolder->getTree({-minimumFields => 1});
if (my $deadFolder = $folders->{$session{scratch}{collateralFolderId}}) {
my $parentId = $deadFolder->get("parentId");
$deadFolder->recursiveDelete();
WebGUI::Session::setScratch("collateralFolderId",$parentId);
}
return www_listCollateral();
}