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 "[_ wp-slim.edit] | "
+ append extra "[_ wp-slim.edit] | "
}
if {$delete_p == 1} {
append extra "[_ wp-slim.delete] |"