Index: openacs-4/packages/contacts/lib/project-offers-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/project-offers-portlet.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/lib/project-offers-portlet.tcl	18 Oct 2005 16:20:28 -0000	1.1
+++ openacs-4/packages/contacts/lib/project-offers-portlet.tcl	21 Oct 2005 16:15:17 -0000	1.2
@@ -6,4 +6,16 @@
     }
 }
 
-set portlet_layout [parameter::get -parameter "DefaultPortletLayout"]
\ No newline at end of file
+set portlet_layout [parameter::get -parameter "DefaultPortletLayout"]
+set pm_base_url ""
+if {[exists_and_not_null organization_id]} {
+    set dotlrn_club_id [lindex [application_data_link::get_linked -from_object_id $organization_id -to_object_type "dotlrn_club"] 0]
+
+    if {$dotlrn_club_id > 0} {
+	set pm_base_url [apm_package_url_from_id [dotlrn_community::get_package_id_from_package_key -package_key "project-manager" -community_id $dotlrn_club_id]]
+    } 
+}
+
+if {[exists_and_not_null pm_base_url]} {
+    set actions [list "[_ project-manager.Projects]" $pm_base_url "[_ project-manager.Projects]" "[_ project-manager.Add_project]" "[export_vars -base "${pm_base_url}/add-edit" -url {{customer_id $organization_id}}]" "[_ project-manager.Add_project]"]
+}