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.13 -r1.14
--- openacs-4/contrib/packages/project-manager/www/add-edit.tcl	11 Dec 2003 21:39:44 -0000	1.13
+++ openacs-4/contrib/packages/project-manager/www/add-edit.tcl	26 Jan 2004 15:39:40 -0000	1.14
@@ -43,7 +43,9 @@
 set use_goal_p  [parameter::get -parameter "UseGoalP" -default "1"]
 set use_project_code_p  [parameter::get -parameter "UseUserProjectCodesP" -default "1"]
 
+set use_project_customizations_p [parameter::get -parameter "UseProjectCustomizationsP" -default "0"]
 
+
 if {[exists_and_not_null project_id]} {
     set title "Edit a $project_term_lower"
     set context_bar [ad_context_bar "Edit $project_term"]
@@ -74,6 +76,7 @@
         {project_name:text
             {label "[set project_term] name"}
             {value $project_name}
+            {html {size 50}}
         }
         
         {description:text(textarea),optional
@@ -123,7 +126,7 @@
     if {![empty_string_p [category_tree::get_mapped_trees $package_id]]} {
         ad_form -extend -name add_edit -form {
             {category_ids:integer(category),multiple,optional {label "Categories"}
-                {html {size 4}} {value {$package_id $package_id}}
+                {html {size 4}} {value {}}
             }
         }
     }
@@ -161,10 +164,17 @@
     } -new_data {
         set project_id [db_exec_plsql new_project_item { *SQL* }]
         set project_item_id [db_string get_item_id { }]
-        
-        ad_returnredirect "one?[export_url_vars project_item_id project_id]"
-        ad_script_abort
-        
+
+        category::map_object -remove_old -object_id $project_item_id $category_ids
+
+        if {$use_project_customizations_p} {
+            ad_returnredirect "add-edit-2?[export_url_vars project_item_id project_id]"
+            ad_script_abort
+        } else {
+            ad_returnredirect "one?[export_url_vars project_item_id project_id]"
+            ad_script_abort
+        }
+
     } -edit_data {
         
         set project_id [db_exec_plsql new_project_revision { *SQL* }]
@@ -174,6 +184,11 @@
        
     } -after_submit {
         
-        ad_returnredirect "one?[export_url_vars project_id]"
-        ad_script_abort
+        if {$use_project_customizations_p} {
+            ad_returnredirect "add-edit-2?[export_url_vars project_id]"
+            ad_script_abort
+        } else {
+            ad_returnredirect "one?[export_url_vars project_id]"
+            ad_script_abort
+        }
     }