Index: openacs-4/packages/wp-slim/www/edit-slide-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-slide-2.tcl,v
diff -u -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/wp-slim/www/edit-slide-2.tcl	21 Jan 2003 12:46:48 -0000	1.4.2.1
+++ openacs-4/packages/wp-slim/www/edit-slide-2.tcl	21 May 2003 15:31:03 -0000	1.4.2.2
@@ -24,12 +24,15 @@
 }
 
 
+#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 creation_ip [ad_conn peeraddr]
 
 # construct the list of bullet_items
 set bullet_items [list]
-for {set index 1} {$index < [expr $bullet_num + 1]} {incr index} {
+for {set index 1} {$index <= [expr $bullet_num + 1]} {incr index} {
     if {![empty_string_p $bullet($index)]} {
         lappend bullet_items $bullet($index)
     }