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.6 -r1.7
--- openacs-4/packages/logger/www/admin/project.tcl	1 May 2003 21:50:38 -0000	1.6
+++ openacs-4/packages/logger/www/admin/project.tcl	2 May 2003 08:35:23 -0000	1.7
@@ -11,10 +11,18 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-if { [string equal [form get_action project_form] "done"] } {
-    # User is done editing - redirect back to index page
-    ad_returnredirect .
-    ad_script_abort
+switch -- [form get_action project_form] {
+    "done" {
+        # User is done editing - redirect back to index page
+        ad_returnredirect .
+        ad_script_abort
+    }
+    "formbuilder::edit" {
+        set edit_mode_p 1
+    }
+    default {
+        set edit_mode_p 0
+    }
 }
 
 if { [exists_and_not_null project_id] } {
@@ -148,4 +156,4 @@
           and lpe.variable_id = lv.variable_id
     }   
 
-} 
+}