From c2bd8052c3363023fb94dd8ba45b0483b69f3d71 Mon Sep 17 00:00:00 2001
From: Andy Grundman <agrundma@webgui-cvs>
Date: Wed, 18 Jun 2003 04:03:23 +0000
Subject: [PATCH] Added empty collateral folder feature

---
 lib/WebGUI/Operation/Collateral.pm | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Operation/Collateral.pm b/lib/WebGUI/Operation/Collateral.pm
index bc6c414e9..8c930a6ab 100644
--- a/lib/WebGUI/Operation/Collateral.pm
+++ b/lib/WebGUI/Operation/Collateral.pm
@@ -38,7 +38,8 @@ our @ISA = qw(Exporter);
 our @EXPORT = qw(&www_editCollateral &www_editCollateralSave &www_deleteCollateral 
 	&www_deleteCollateralConfirm &www_listCollateral 
 	&www_deleteCollateralFile &www_editCollateralFolder &www_editCollateralFolderSave &www_deleteCollateralFolder 
-	&www_deleteCollateralFolderConfirm &www_htmlArealistCollateral &www_htmlAreaviewCollateral &www_htmlAreaUpload
+	&www_deleteCollateralFolderConfirm &www_emptyCollateralFolder &www_emptyCollateralFolderConfirm
+	&www_htmlArealistCollateral &www_htmlAreaviewCollateral &www_htmlAreaUpload
 	&www_htmlAreaDelete &www_htmlAreaCreateFolder);
 
 #-------------------------------------------------------------------
@@ -54,6 +55,7 @@ sub _submenu {
 		$menu{WebGUI::URL::page('op=deleteCollateral&cid='.$session{form}{cid})} = WebGUI::International::get(765);
 	}
 	$menu{WebGUI::URL::page('op=editCollateralFolder')} = WebGUI::International::get(759);
+	$menu{WebGUI::URL::page('op=emptyCollateralFolder')} = WebGUI::International::get(980);
 	$menu{WebGUI::URL::page('op=deleteCollateralFolder')} = WebGUI::International::get(760);
 	$menu{WebGUI::URL::page('op=listCollateral')} = WebGUI::International::get(766);
 	return menuWrapper($_[0],\%menu);
@@ -108,6 +110,29 @@ sub www_deleteCollateralFolderConfirm {
         return www_listCollateral();
 }
 
+#-------------------------------------------------------------------
+sub www_emptyCollateralFolder {
+        return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));
+	return WebGUI::Privilege::vitalComponent() unless ($session{scratch}{collateralFolderId} > 999);
+        my $output = '<h1>'.WebGUI::International::get(42).'</h1>';
+	$output .= WebGUI::International::get(979).'<p/><div align="center">';
+        $output .= '<a href="'.WebGUI::URL::page('op=emptyCollateralFolderConfirm').'">'
+                .WebGUI::International::get(44).'</a>';
+        $output .= '&nbsp;&nbsp;&nbsp;&nbsp;';
+        $output .= '<a href="'.WebGUI::URL::page('op=listCollateral').'">'.WebGUI::International::get(45).'</a>';
+	$output .= '</div>';
+        return _submenu($output);
+}
+
+#-------------------------------------------------------------------
+sub www_emptyCollateralFolderConfirm {
+        return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));
+	return WebGUI::Privilege::vitalComponent() unless ($session{scratch}{collateralFolderId} > 999);
+	my @collateralIds = WebGUI::SQL->buildArray("select collateralId from collateral where collateralFolderId=".$session{scratch}{collateralFolderId});
+	WebGUI::Collateral->multiDelete(@collateralIds);
+        return www_listCollateral();
+}
+
 #-------------------------------------------------------------------
 sub www_deleteCollateralFile {
 	return WebGUI::Privilege::insufficient unless (WebGUI::Privilege::isInGroup(4));