Index: openacs-4/packages/dotlrn-project-manager/tcl/dotlrn-project-manager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-project-manager/tcl/dotlrn-project-manager-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-project-manager/tcl/dotlrn-project-manager-procs.tcl	10 Jun 2005 18:27:59 -0000	1.2
+++ openacs-4/packages/dotlrn-project-manager/tcl/dotlrn-project-manager-procs.tcl	10 Jun 2005 21:41:20 -0000	1.3
@@ -122,8 +122,44 @@
 
     project_manager_task_portlet::add_self_to_page -portal_id $portal_id -project_manager_id $package_id
 
-    # this should return the package_id
 
+    # instantiate and mount the logger package for this pm
+
+    set logger_package_id [dotlrn::instantiate_and_mount \
+			-mount_point "logger" \
+			$community_id \
+			"logger" \
+		       ]
+
+    # (appl.)link the pm to the logger,
+ 
+
+    
+    application_link::new -this_package_id $package_id -target_package_id $logger_package_id
+
+
+    # and now to the existing fs, conntacts, forums package
+    # of this community
+
+
+    
+    foreach target_key [list "[dotlrn_community::get_community_url $community_id]forums" "[dotlrn_community::get_community_url $community_id]file-storage" "/contacts/"] {
+
+	set site_node_inf [site_node::get_from_url -url $target_key]
+
+	set target_package_id [lindex $site_node_inf 19]
+	set is_package_id [lindex $site_node_inf 18]
+  
+	if {![empty_string_p $target_package_id] && $is_package_id == "package_id"} {
+	    
+	        application_link::new -this_package_id $package_id -target_package_id $target_package_id
+	
+	}
+	
+    } 
+    
+
+    # this should return the package_id
     return $package_id
 }
 
Index: openacs-4/packages/project-manager-portlet/tcl/project-manager-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager-portlet/tcl/project-manager-portlet-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/project-manager-portlet/tcl/project-manager-portlet-procs.tcl	10 Jun 2005 18:27:34 -0000	1.1
+++ openacs-4/packages/project-manager-portlet/tcl/project-manager-portlet-procs.tcl	10 Jun 2005 21:43:10 -0000	1.2
@@ -99,6 +99,9 @@
         ]
     }
 
+
+
+
     ad_proc -public remove_self_from_page {
 	{-portal_id:required}
         {-project_manager_id:required}