Index: openacs-4/packages/wp-slim/www/slide-publish.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/slide-publish.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/wp-slim/www/slide-publish.tcl	20 Apr 2001 20:51:24 -0000	1.1
+++ openacs-4/packages/wp-slim/www/slide-publish.tcl	28 Aug 2003 09:42:00 -0000	1.2
@@ -10,8 +10,13 @@
 } {
     revision_id:naturalnum,notnull
     return_url:notnull
+    pres_item_id: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_edit_presentation
+
 db_exec_plsql live_revision_set {
     declare
       v_revision_id  cr_revisions.revision_id%TYPE;
@@ -35,4 +40,4 @@
     end;
 }
 
-ad_returnredirect $return_url
\ No newline at end of file
+ad_returnredirect $return_url