Index: openacs-4/packages/wp-slim/www/attach-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/attach-list.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/wp-slim/www/attach-list.tcl	6 Sep 2002 15:32:23 -0000	1.3
+++ openacs-4/packages/wp-slim/www/attach-list.tcl	28 Aug 2003 09:42:00 -0000	1.4
@@ -10,13 +10,18 @@
      @cvs-id $Id$
 } {
     slide_item_id:naturalnum,notnull
+    pres_item_id:naturalnum,notnull
 } -properties {
     slide_item_id
     context
     att:multirow
 }
 
+#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_edit_presentation
 
+
 set pres_item_id [db_string pres_item_id_get {
     select parent_id
     from cr_items