Index: openacs-4/packages/wp-slim/www/edit-presentation.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-presentation.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/wp-slim/www/edit-presentation.tcl	20 Apr 2001 20:51:24 -0000	1.1
+++ openacs-4/packages/wp-slim/www/edit-presentation.tcl	4 Oct 2001 04:29:01 -0000	1.2
@@ -18,17 +18,33 @@
     show_modified_p
 }
 
-ad_require_permission $pres_item_id wp_edit_presentation
 
 set header [ad_header "Edit Presentation"]
 
 db_1row get_presentation_data {
-    select p.pres_title, p.page_signature, p.copyright_notice, p.public_p, p.show_modified_p, wp_presentation.get_audience(:pres_item_id) as audience, wp_presentation.get_background(:pres_item_id) as background
+    select p.pres_title, p.page_signature, p.copyright_notice, p.public_p, p.show_modified_p 
     from cr_wp_presentations p, cr_items i
     where i.item_id = :pres_item_id
     and   i.live_revision = p.presentation_id
 }
 
+db_1row get_aud_data {
+    select name as audience
+    from cr_revisions, cr_items
+    where cr_items.content_type = 'cr_wp_presentation_aud'
+    and cr_items.parent_id = :pres_item_id
+    and cr_revisions.revision_id = cr_items.live_revision
+}
+
+
+db_1row get_back_data {
+    select name as background
+    from cr_revisions r, cr_items i
+    where i.content_type = 'cr_wp_presentation_back'
+    and i.parent_id = :pres_item_id
+    and r.revision_id = i.live_revision
+}
+
 #set public_p [db_string get_public_read_p "
 #select decode(count(*),1,'t','f')
 #from acs_permissions
@@ -40,4 +56,4 @@
 
 set nav_bar [ad_context_bar [list "presentation-top?[export_url_vars pres_item_id]"  "$pres_title"] "Edit Presentation"]
 
-ad_return_template
\ No newline at end of file
+ad_return_template