Index: openacs-4/packages/wp-slim/www/serve-slide.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/serve-slide.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/wp-slim/www/serve-slide.tcl	29 Sep 2003 02:41:33 -0000	1.8
+++ openacs-4/packages/wp-slim/www/serve-slide.tcl	21 Dec 2004 22:06:47 -0000	1.9
@@ -60,6 +60,10 @@
     and   ao.object_id = s.slide_id
 }
 
+# to support htmlArea
+set preamble [lindex $preamble 0]
+set postamble [lindex $postamble 0]
+
 set modified_date [lc_time_fmt $modified_date "%Q"]
 
 db_1row get_presentation_page_signature { *SQL* }
@@ -115,9 +119,10 @@
     and   i.live_revision = x.attach_id
 }
 
+set edit_slide 1
 set extra ""
 if {$edit_p == 1} {
-    append extra "<a href=\"$subsite_name/edit-slide?[export_url_vars slide_item_id pres_item_id]\">[_ wp-slim.edit]</a> | "
+    append extra "<a href=\"$subsite_name/add-edit-slide?[export_url_vars slide_item_id pres_item_id edit_slide]\">[_ wp-slim.edit]</a> | "
 }
 if {$delete_p == 1} {
     append extra "<a href=\"$subsite_name/delete-slide?[export_url_vars slide_item_id pres_item_id slide_title]\">[_ wp-slim.delete]</a> |"