[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.94,1.95

[Rob H. <for...@us...>]

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv27860/bin

Modified Files:
	sandweb.cgi 
Log Message:

sweet.. remove works.



Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.94
retrieving revision 1.95
diff -U2 -r1.94 -r1.95
--- sandweb.cgi	2001/12/18 02:12:06	1.94
+++ sandweb.cgi	2001/12/18 02:18:53	1.95
@@ -136,4 +136,5 @@
 						cookie => $cookie,
 						file_command => param('file_command'),
+						filename => param('filename'),
 						location => param('location'),
 					);
@@ -535,4 +536,25 @@
 		);
 		exit 0;
+	}
+	elsif ( $file_command eq 'remove' ) {
+		if ($file) {
+			if ( $file->get_file_type() eq 'Directory' ) {
+				$file->remove_folder();
+			} else {
+				$file->remove_file();
+			}
+
+			browse_menu( 
+				cookie => $cookie,
+				path => $location,
+		 	);
+			exit 0;
+		}
+		set_error("Please select file(s) or folder(s) to remove.");
+		browse_menu( 
+			cookie => $cookie,
+			path => $location,
+		);
+
 	}
 	elsif ( $file_command eq 'upload' ) {