Index: openacs-4/packages/project-manager/www/add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/add-edit.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/project-manager/www/add-edit.tcl 3 Jun 2005 22:13:44 -0000 1.6 +++ openacs-4/packages/project-manager/www/add-edit.tcl 4 Jun 2005 12:52:21 -0000 1.7 @@ -11,6 +11,7 @@ } { project_id:integer,optional + {dform:optional "implicit"} {project_revision_id ""} {project_item_id ""} {project_name ""} @@ -182,7 +183,7 @@ } } -dtype::form::add_elements -prefix pm -object_type pm_project -object_id [value_if_exists project_id] -form add_edit -exclude_static -cr_widget none +dtype::form::add_elements -dform $dform -prefix pm -object_type pm_project -object_id [value_if_exists project_id] -form add_edit -exclude_static -cr_widget none ad_form -extend -name add_edit \ -new_request { @@ -230,6 +231,7 @@ # create a project manager project set project_id [dtype::form::process \ + -dform $dform \ -prefix pm \ -object_type pm_project \ -object_id $project_id \ @@ -264,6 +266,7 @@ set old_project_id $project_id set project_id [dtype::form::process \ + -dform $dform \ -prefix pm \ -object_type pm_project \ -object_id $project_id \