Index: openacs-4/contrib/packages/project-manager/www/add-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/add-edit-2.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/contrib/packages/project-manager/www/add-edit-2.tcl	5 Feb 2004 23:57:49 -0000	1.1.2.3
+++ openacs-4/contrib/packages/project-manager/www/add-edit-2.tcl	27 Feb 2004 22:46:13 -0000	1.1.2.4
@@ -17,6 +17,7 @@
 
 } {
     project_id:integer,optional
+    {old_project_id ""}
     {project_item_id ""}
     {project_name ""}
     {description ""}
@@ -28,6 +29,12 @@
 
 }
 
+
+# this is necessary for new projects
+if {![exists_and_not_null old_project_id]} {
+    set old_project_id $project_id
+}
+
 # --------------------------------------------------------------- #
 # the unique identifier for this package
 set package_id [ad_conn package_id]
@@ -69,6 +76,8 @@
         }
 
     } \
+    -validate {
+    } \
     -select_query_name project_query \
     -on_submit {
         
@@ -78,7 +87,7 @@
     } \
     -new_data {
 
-        ad_returnredirect "one?[export_url_vars project_item_id project_id]"
+        ad_returnredirect "one?[export_url_vars project_item_id]"
         ad_script_abort
         
     } -edit_data {
@@ -87,7 +96,7 @@
 
     } -after_submit {
         
-        ad_returnredirect "one?[export_url_vars project_id]"
+        ad_returnredirect "one?[export_url_vars project_item_id]"
         ad_script_abort
 
     }