Index: openacs-4/packages/wp-slim/www/create-presentation-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-presentation-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/wp-slim/www/create-presentation-2.tcl	4 Oct 2001 04:29:01 -0000	1.2
+++ openacs-4/packages/wp-slim/www/create-presentation-2.tcl	15 Nov 2001 01:47:13 -0000	1.3
@@ -16,28 +16,16 @@
 
 set package_id [ad_conn package_id]
 
-
-
 set user_id [ad_verify_and_get_user_id]
 set creation_ip [ad_conn peeraddr]
 
-set pres_item_id [db_exec_plsql wp_presentation_insert {
-    begin        
-      :1 := wp_presentation.new(
-      creation_date    => sysdate,
-      creation_user    => :user_id,
-      creation_ip      => :creation_ip,
-      pres_title       => :pres_title,
-      page_signature   => :page_signature,
-      copyright_notice => :copyright_notice,
-      style            => :style,
-      public_p         => :public_p,
-      show_modified_p  => :show_modified_p,
-      audience         => :audience,
-      background       => :background
-      );
-    end;
-}]
+set pres_item_id [db_exec_plsql wp_presentation_insert ""]
 
+db_exec_plsql grant_owner_access ""
+
+if {$public_p == "t"} {
+    db_exec_plsql make_wp_presentation_public ""
+}
+
 ad_returnredirect "presentation-top?[export_url_vars pres_item_id]"