Index: openacs-4/packages/logger/www/admin/project.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/admin/project.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/logger/www/admin/project.tcl	22 Apr 2003 09:27:03 -0000	1.1
+++ openacs-4/packages/logger/www/admin/project.tcl	25 Apr 2003 09:49:25 -0000	1.2
@@ -10,6 +10,12 @@
 
 set package_id [ad_conn package_id]
 
+if { ![empty_string_p [ns_set iget [rp_getform] formbutton:done_button]] } {        
+    # User is done editing - redirect back to index page
+    ad_returnredirect index
+    ad_script_abort
+}
+
 if { [exists_and_not_null project_id] } {
     # Initial request in display or edit mode or a submit of the form
     set page_title "One Project"
@@ -22,7 +28,13 @@
 
 set context [list $page_title]
 
-ad_form -name project_form -cancel_url index -mode $ad_form_mode -form {
+set actions_list [list [list Edit "formbuilder::edit"] [list Done done_button]]
+ad_form -name project_form \
+        -cancel_url index \
+        -mode $ad_form_mode \
+        -actions $actions_list \
+        -form {
+
     project_id:key(acs_object_id_seq)
 
     name:text