Index: openacs-4/packages/project-manager/templates/project-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/templates/project-ae.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/project-manager/templates/project-ae.tcl	8 Sep 2005 08:31:52 -0000	1.3
+++ openacs-4/packages/project-manager/templates/project-ae.tcl	14 Sep 2005 08:42:23 -0000	1.4
@@ -21,6 +21,12 @@
     set project_id [pm::project::get_project_id -project_item_id $project_item_id]
 }
 
+# We want to use project numbers if no project_name is given.
+# If the user wants, he can still provide a project_name
+if {[empty_string_p $project_name]} {
+    set project_name [db_nextval pm_project_title_seq]
+}
+
 if {[exists_and_not_null project_id]} {
     set title "[_ project-manager.lt_Edit_a_project_term_l]"
     set context_bar [ad_context_bar "[_ project-manager.Edit_project_term]"]