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 -N -r1.15 -r1.16
--- openacs-4/packages/logger/www/admin/project.tcl	11 Jan 2004 22:11:24 -0000	1.15
+++ openacs-4/packages/logger/www/admin/project.tcl	27 Feb 2004 17:43:53 -0000	1.16
@@ -58,10 +58,10 @@
         {label "Description"}
     }
 
-    {project_lead:search
+    {project_lead:search,optional
         {result_datatype integer}
         {label {Project Lead}}
-        {options [logger::project::users_get_options]}
+        {options {[concat [logger::project::users_get_options]]}}
         {search_query {[db_map dbqd.acs-tcl.tcl.community-core-procs.user_search]}}
     }
 }
@@ -112,8 +112,13 @@
         -active_p $active_p
 
 } -after_submit {
-      
-    ad_returnredirect "[ad_conn url]?project_id=$project_id"
+    if { [ad_form_new_p -key project_id] } {
+        set message "Project \"$name\" has been created."
+    } else {
+        set message "Project \"$name\" has been modified."
+    }
+
+    ad_returnredirect -message $message [export_vars -base [ad_conn url] { project_id }]
     ad_script_abort
 }
 
@@ -148,6 +153,8 @@
     }
 }
 
+set add_variable_url [export_vars -base map-variable-to-project { project_id }]
+
 template::list::create \
     -name variables \
     -actions [list "Add variable" [export_vars -base map-variable-to-project { project_id }] {}] \