Index: openacs-4/packages/project-manager/www/task-one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-one.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/project-manager/www/task-one.tcl 3 Jun 2005 22:13:44 -0000 1.5 +++ openacs-4/packages/project-manager/www/task-one.tcl 5 Jun 2005 22:58:35 -0000 1.6 @@ -241,11 +241,18 @@ # Dynamic Attributes # ------------------ +set form_attributes [list] +foreach element [dtype::form::metadata::widgets_list -object_type pm_task -exclude_static_p 1 -dform $task_info(dform)] { + lappend form_attributes [lindex $element 3] +} + dtype::get_object -object_id $task_revision_id -object_type pm_task -array dattr -exclude_static multirow create dynamic_attributes name value foreach attr [array names dattr] { - multirow append dynamic_attributes "[_ dynamic-types.pm_task_$attr]" $dattr($attr) + if {[lsearch -exact $form_attributes $attr] > -1} { + multirow append dynamic_attributes "[_ acs-translations.pm_task_$attr]" $dattr($attr) + } }