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.12.2.10 -r1.12.2.11
--- openacs-4/contrib/packages/project-manager/www/add-edit.tcl	11 Mar 2004 11:12:42 -0000	1.12.2.10
+++ openacs-4/contrib/packages/project-manager/www/add-edit.tcl	12 Mar 2004 00:20:24 -0000	1.12.2.11
@@ -24,6 +24,7 @@
     {deadline_scheduling ""}
     {ongoing_p ""}
     {status_id ""}
+    {logger_project ""}
 
 } -properties {
 
@@ -81,6 +82,10 @@
             {value $project_item_id}
         }
 
+        {logger_project:text(hidden)
+            {value $logger_project}
+        }
+
         {project_name:text
             {label "[set project_term] name"}
             {value $project_name}
@@ -229,10 +234,7 @@
         # the new revision will not have any of the custom values in
         # it until it is edited. So we need to pull in these values
         set old_project_id $project_id
-
-	set logger_project [pm::project::get_logger_project \
-				-project_item_id $project_item_id]
-
+        
         set project_id [pm::project::edit \
                             -project_item_id $project_item_id \
                             -project_name $project_name \
@@ -252,11 +254,14 @@
                             -creation_ip $peeraddr \
                             -package_id $package_id]
         
-        set project_id [db_exec_plsql new_project_revision { *SQL* }]
+        set project_item_id [pm::project::get_project_item_id \
+                            -project_id $project_id]
         pm::project::compute_parent_status $project_item_id
  
-        category::map_object -remove_old -object_id $project_item_id $category_ids
-       
+
+        if {[exists_and_not_null category_ids]} {
+            category::map_object -remove_old -object_id $project_item_id $category_ids
+        }
     } -after_submit {
 
         if {$use_project_customizations_p} {