Index: openacs-4/packages/project-manager/templates/project-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/templates/project-ae.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/project-manager/templates/project-ae.tcl	4 May 2006 13:29:09 -0000	1.7
+++ openacs-4/packages/project-manager/templates/project-ae.tcl	10 Aug 2006 09:18:09 -0000	1.8
@@ -233,6 +233,10 @@
 	set planned_start_date_sql "to_timestamp('$planned_start_date','YYYY MM DD HH24 MI SS')"
 	set planned_end_date_sql "to_timestamp('$planned_end_date_list','YYYY MM DD HH24 MI SS')"
 
+        # insert the comment into the database
+        set description_body [template::util::richtext::get_property contents $description]
+        set description_format [template::util::richtext::get_property format $description]
+
     } -new_data {
 
 	db_transaction {
@@ -253,7 +257,7 @@
 				-object_id $project_id \
 				-form add_edit \
 				-cr_widget none \
-				-defaults [list title $project_name description $description mime_type "text/plain" context_id $parent_id parent_id $parent_id object_type pm_project] \
+				-defaults [list title $project_name description $description_body mime_type $description_format context_id $parent_id parent_id $parent_id object_type pm_project] \
 				-default_fields {project_code goal {planned_start_date $planned_start_date_sql} {planned_end_date $planned_end_date_sql} actual_start_date actual_end_date ongoing_p status_id customer_id dform} \
 				-exclude_static]
 
@@ -295,7 +299,7 @@
 				-object_id $project_id \
 				-form add_edit \
 				-cr_widget none \
-				-defaults [list title $project_name description $description mime_type "text/plain" context_id $parent_id parent_id $parent_id object_type pm_project] \
+				-defaults [list title $project_name description $description_body mime_type $description_format context_id $parent_id parent_id $parent_id object_type pm_project] \
 				-default_fields {project_code goal {planned_start_date $planned_start_date_sql} {planned_end_date $planned_end_date_sql} actual_start_date actual_end_date ongoing_p status_id customer_id dform} \
 				-exclude_static]