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.1 -r1.2
--- openacs-4/packages/wp-slim/www/edit-slide.tcl	20 Apr 2001 20:51:24 -0000	1.1
+++ openacs-4/packages/wp-slim/www/edit-slide.tcl	4 Oct 2001 04:29:01 -0000	1.2
@@ -20,7 +20,6 @@
     original_slide_id
 }
 
-ad_require_permission $slide_item_id wp_edit_presentation
 
 set nav_bar [ad_context_bar "Edit Slide"]
 
@@ -36,6 +35,32 @@
 and   i.live_revision = s.slide_id
 }
 
+db_1row get_pre_info {
+  select content as preamble
+  from cr_revisions, cr_items
+  where cr_items.content_type = 'cr_wp_slide_preamble'
+  and cr_items.parent_id = :slide_item_id
+  and cr_revisions.revision_id = cr_items.live_revision
+}
+
+db_1row get_pos_info {
+elect content as postamble
+  from cr_revisions, cr_items
+  where cr_items.content_type = 'cr_wp_slide_postamble' 
+  and cr_items.parent_id = :slide_item_id
+  and cr_revisions.revision_id = cr_items.live_revision
+}
+
+db_1row get_bul_info {
+select content as bullet_items
+  from cr_revisions, cr_items
+  where cr_items.content_type = 'cr_wp_slide_bullet_items'
+  and cr_items.parent_id = :slide_item_id
+  and cr_revisions.revision_id = cr_items.live_revision;
+}
+
+
+
 set bullet_num [llength $bullet_items]
 
 ad_return_template