Index: openacs-4/packages/datamanager/www/use-folder.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/Attic/use-folder.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/datamanager/www/use-folder.tcl	23 Sep 2005 14:30:37 -0000	1.1.2.1
+++ openacs-4/packages/datamanager/www/use-folder.tcl	10 Oct 2005 12:59:34 -0000	1.1.2.2
@@ -6,21 +6,32 @@
 } -query {
      object_id:integer,notnull
      action:notnull
-     selected_community:integer,notnull
+     selected_community:integer,optional
 } -properties {
 }
 
+
+dotlrn::require_user_admin_community  -community_id [dotlrn_community::get_community_id]
 set context [list []]
 set title "[_ datamanager.Confirmation]"    
 
 switch $action {
     "move" {
+         #only administrator or professor must be allowed to enter this page
+
+        dotlrn::require_user_admin_community  -community_id $selected_community
+        
         callback -catch datamanager::move_folder -object_id $object_id -selected_community $selected_community
     }
     "copy" {
+         #only administrator or professor must be allowed to enter this page
+
+        dotlrn::require_user_admin_community  -community_id $selected_community
+        
         callback -catch datamanager::copy_folder -object_id $object_id -selected_community $selected_community
     }
     "delete" {
+        callback -catch datamanager::delete_folder -object_id $object_id         
     }
     default {
     }