Index: openacs-4/packages/logger/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/apm-callback-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/logger/tcl/apm-callback-procs.tcl	13 Jun 2006 04:31:24 -0000	1.12
+++ openacs-4/packages/logger/tcl/apm-callback-procs.tcl	18 Aug 2006 15:39:08 -0000	1.13
@@ -77,8 +77,9 @@
 
     db_1row project_data {
 	select creation_user, title, description, project_id as project_rev_id
-	from pm_projectsx
-	where item_id = :project_id
+	from pm_projectsx px, cr_items i
+	where i.item_id = :project_id
+	and px.project_id = i.latest_revision
     }
 
     if {[exists_and_not_null callback_data(organization_id)]} {
@@ -143,6 +144,13 @@
     }
 
     set logger_project [lindex [application_data_link::get_linked -from_object_id $project_id -to_object_type logger_project] 0]
+    if {$logger_project eq ""} {
+	# create new logger project
+	ns_log Notice "Need to generate logger project for project_item_id $project_id"
+	callback -impl logger pm::project_new -package_id $package_id -project_id $project_id -data [array get callback_data]
+	set logger_project [lindex [application_data_link::get_linked -from_object_id $project_id -to_object_type logger_project] 0]
+    }
+
     set active_p [pm::status::open_p -project_status_id $status_id]
 
     if {[exists_and_not_null callback_data(organization_id)]} {