Index: openacs-4/packages/wp-slim/www/attach-del.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/attach-del.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/wp-slim/www/attach-del.tcl	4 Oct 2001 04:29:01 -0000	1.2
+++ openacs-4/packages/wp-slim/www/attach-del.tcl	28 Aug 2003 09:42:00 -0000	1.3
@@ -10,8 +10,12 @@
 } {
     slide_item_id:naturalnum,notnull
     attach_item_id:naturalnum,notnull
+    pres_item_id:naturalnum,notnull
 }
 
+#added permission checking  roc@
+set user_id [ad_verify_and_get_user_id]
+permission::require_permission -party_id $user_id -object_id $pres_item_id -privilege wp_delete_presentation
 
 
 db_exec_plsql revisions_and_item_delete {
@@ -20,4 +24,4 @@
     end;
 }
     
-ad_returnredirect "attach-list?[export_url_vars slide_item_id]"
+ad_returnredirect "attach-list?[export_url_vars slide_item_id pres_item_id]"