Index: openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	14 May 2004 23:08:56 -0000	1.9
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	3 Jun 2004 21:32:01 -0000	1.10
@@ -224,14 +224,23 @@
                            -project_lead $creation_user \
                            ] 
 
+    # we want the logger project to show up in logger!
+    set logger_URLs [parameter::get -parameter "LoggerURLsToKeepUpToDate" -default ""]
+    foreach url $logger_URLs {
+        # get the package_id
+        set node_id [site_node::get_node_id -url $url]
+        array set node [site_node::get -node_id $node_id]
+        set this_package_id $node(package_id)
+
+        logger::package::map_project \
+            -project_id $logger_project \
+            -package_id $this_package_id
+    }
+
     # create a project manager project (associating the logger project
     # with the logger project)
     set project_revision [db_exec_plsql new_project_item { *SQL }]
 
-    # add in the default variable (hopefully hours)
-    logger::project::map_variable \
-        -project_id $logger_project \
-        -variable_id [logger::variable::get_default_variable_id]
 
     return $project_revision
 }
@@ -291,6 +300,26 @@
     @error 
 } {
 
+    # if we edit the name of the project, we need to edit the logger
+    # project name too.
+
+    set logger_project [pm::project::get_logger_project \
+                            -project_item_id $project_item_id]
+
+    set active_p [pm::status::open_p -task_status_id $status_id]
+    set customer_name [organizations::name -organization_id "$organization_id"]
+
+    if {![empty_string_p $customer_name]} {
+        append customer_name " - "
+    }
+
+    logger::project::edit \
+        -project_id $logger_project \
+        -name "$customer_name$project_name" \
+        -description "$description" \
+        -project_lead $creation_user \
+        -active_p $active_p
+
     set returnval [db_exec_plsql update_project "
 	select pm_project__new_project_revision (
 		:project_item_id,
@@ -1342,6 +1371,33 @@
 }
 
 
+ad_proc -public pm::project::get_project {
+    -logger_project:required
+} {
+    Returns the project_item_id when given the logger project
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-05-28
+    
+    @param logger_project
+
+    @return project_item_id
+    
+    @error 
+} {
+    return [db_string get_logger_project "
+        SELECT
+        i.item_id
+        FROM
+        pm_projectsx p, cr_items i
+        WHERE
+        i.live_revision = p.revision_id and logger_project = :logger_project
+    " -default "no_project"]
+    
+}
+
+
+
 ad_proc -public pm::project::get_list_of_open {
 } {
     Returns a list of lists, of all open project ids and their names
@@ -1374,3 +1430,5 @@
 
     return $return_val
 }
+
+