Index: openacs-4/packages/wp-slim/www/edit-slide.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-slide.tcl,v
diff -u -r1.4.2.2 -r1.4.2.3
--- openacs-4/packages/wp-slim/www/edit-slide.tcl	24 Jan 2003 09:39:40 -0000	1.4.2.2
+++ openacs-4/packages/wp-slim/www/edit-slide.tcl	21 May 2003 15:31:03 -0000	1.4.2.3
@@ -21,8 +21,12 @@
 }
 
 
-set context [list "Edit Slide"]
+#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 context [list "presentation-top?[export_url_vars pres_item_id] {presentation}" {Edit Slide}]
+
 db_1row get_slide_info {
 select s.slide_title,
        s.sort_key,
@@ -63,6 +67,8 @@
 
 set bullet_num 0
 multirow create bullets item widget rows prev
+# up to 3 bullets now! roc@
+lappend bullet_items {} {}
 foreach item $bullet_items { 
     if {[string length $item] < 60} { 
         set rows 1 
@@ -74,7 +80,7 @@
     multirow append bullets $item $widget $rows $bullet_num
     incr bullet_num
 }
-incr bullet_num
+incr bullet_num 
 set bullet_max [expr $bullet_num + 1]
 
 # quote html tags contained in bullet items