Index: openacs-4/packages/project-manager/lib/project-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/project-portlet.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/lib/project-portlet.tcl	26 May 2005 12:47:26 -0000	1.2
+++ openacs-4/packages/project-manager/lib/project-portlet.tcl	3 Jun 2005 22:13:44 -0000	1.3
@@ -19,9 +19,7 @@
 db_1row project_query { } -column_array project
 
 set richtext_list [list $project(description) $project(mime_type)]
-
 set project(description) [template::util::richtext::get_property html_value $richtext_list]
-
 set project_root [pm::util::get_root_folder]
 
 set project(planned_start_date) [lc_time_fmt $project(planned_start_date) "%x"]
@@ -30,3 +28,10 @@
 set project(earliest_finish_date) [lc_time_fmt $project(earliest_finish_date) "%x"]
 set project(latest_finish_date) [lc_time_fmt $project(latest_finish_date) "%x"]
 set edit_url "[ad_conn package_url]add-edit?[export_url_vars project_item_id]"
+
+dtype::get_object -object_id $project_id -object_type pm_project -array dattr -exclude_static
+
+multirow create dynamic_attributes name value
+foreach attr [array names dattr] {
+    multirow append dynamic_attributes "[_ dynamic-types.pm_project_$attr]" $dattr($attr)
+}