Index: openacs-4/packages/edit-this-page/tcl/etp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/tcl/etp-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/edit-this-page/tcl/etp-procs.tcl	7 Jul 2003 16:17:16 -0000	1.13
+++ openacs-4/packages/edit-this-page/tcl/etp-procs.tcl	23 Sep 2003 19:13:20 -0000	1.14
@@ -183,7 +183,7 @@
 }
 
 
-ad_proc -public make_page { name {title "Untitled"} } {
+ad_proc -public make_page { name {title "Untitled"} {item_id ""}} {
     @author Luke Pond
     @creation-date 2001-05-31
     @param name the name of the page you wish to create 
@@ -318,6 +318,8 @@
 	db_1row get_page_attributes_other_revision "" -column_array pa
     }
 
+	    set pa(content) [template::util::richtext get_property html_value [list $pa(content) $pa(mime_type)]]
+
     # add in the context bar
     if { $name == "index" } {
 	set cb [ad_context_bar]
@@ -698,4 +700,11 @@
     }
 }
 
+ad_proc -public get_folder_id { package_id } {
+    @param package_id
+    @returns content folder associated with package_id etp package instance
+} {
+    return [db_exec_plsql get_folder_id ""]
 }
+
+}