Index: openacs-4/contrib/packages/project-manager/www/add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/add-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/project-manager/www/add-edit.tcl	15 Jun 2003 13:07:28 -0000	1.2
+++ openacs-4/contrib/packages/project-manager/www/add-edit.tcl	30 Jul 2003 20:42:05 -0000	1.3
@@ -11,9 +11,14 @@
 } {
 
     project_id:integer,optional
+    {item_id ""}
+    {project_name ""}
+    {project_code ""}
+    {parent_id ""}
+    {goal ""}
+    {description ""}
     {planned_start_date ""}
     {planned_end_date ""}
-    parent_project_id:integer,optional
 
 } -properties {
 
@@ -38,31 +43,40 @@
 ad_form -name add_edit -form {
     project_id:key
 
+    {parent_id:text(hidden)
+        {value $parent_id}
+    }
+
+    {item_id:text(hidden)
+        {value $item_id}
+    }
+
     {project_name:text
         {label "Project name"}
+	{value $project_name}
     }
 
     {project_code:text
         {label "Project code"}
+	{value $project_code}
     }
 
-    {parent_project_id:text(hidden)
-	{value $parent_project_id}
-    }
-
     {goal:text(textarea)
 	{label "Project goal"}
 	{optional}
+	{value $goal}
 	{html { rows 5 cols 40 wrap soft}}}
 
     {description:text(textarea)
 	{label "Description"}
 	{optional}
+	{value $description}
 	{html { rows 5 cols 40 wrap soft}}}
 
     {deadline_scheduling:text(select)
 	{label "Scheduling"}
-	{options {{"From today" "t"} {"From deadline" "e"}} {value $deadline_scheduling}} }
+	{options {{"From today" "t"} {"From deadline" "e"}} 
+	{value $deadline_scheduling}} }
 
     {planned_start_date:date {value {[util::date acquire clock [clock scan $planned_start_date]]}} optional
 	{label "Planned start date"}
@@ -93,10 +107,10 @@
 
 } -edit_data {
 
-    db_dml new_project_revision { *SQL* }
+    db_exec_plsql new_project_revision { *SQL* }
 
 } -after_submit {
 
     ad_returnredirect "index"
     ad_script_abort
-}
\ No newline at end of file
+}