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.4 -r1.5
--- openacs-4/contrib/packages/project-manager/www/add-edit.tcl	31 Jul 2003 20:11:41 -0000	1.4
+++ openacs-4/contrib/packages/project-manager/www/add-edit.tcl	2 Aug 2003 00:26:28 -0000	1.5
@@ -107,17 +107,17 @@
     set peeraddr [ad_conn peeraddr]
 
 } -new_data {
-    db_exec_plsql new_project_item { *SQL* }
+    set project_id [db_exec_plsql new_project_item { *SQL* }]
 
-    ad_returnredirect "."
+    ad_returnredirect "one?[export_url_vars project_id]"
     ad_script_abort
 
 } -edit_data {
 
-    db_exec_plsql new_project_revision { *SQL* }
+    set project_id [db_exec_plsql new_project_revision { *SQL* }]
 
 } -after_submit {
 
-    ad_returnredirect "index"
+    ad_returnredirect "one?[export_url_vars project_id]"
     ad_script_abort
 }