Index: openacs-4/packages/contacts/www/contact.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.adp,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/contacts/www/contact.adp	7 Jun 2005 19:19:12 -0000	1.11
+++ openacs-4/packages/contacts/www/contact.adp	15 Jun 2005 05:03:56 -0000	1.12
@@ -55,6 +55,9 @@
       truncate_len="100"
       size="small"
       recent_on_top_p="1" />
+    <if @dotlrn_club_enabled_p@>
+      <a href="@club_url@">#contacts.Visit_Club#</a>
+      </if>
     <if @projects_enabled_p@>
     <if @project_url@ ne "">
       <br />
Index: openacs-4/packages/contacts/www/contact.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/contacts/www/contact.tcl	14 Jun 2005 20:30:05 -0000	1.10
+++ openacs-4/packages/contacts/www/contact.tcl	15 Jun 2005 05:03:56 -0000	1.11
@@ -94,18 +94,26 @@
 if { [string is false [empty_string_p [info procs "::application_data_link::get_linked"]]] } {
 
     set project_id [lindex [application_data_link::get_linked -from_object_id $party_id -to_object_type "pm_project"] 0]
+    set dotlrn_club_id [lindex [application_data_link::get_linked -from_object_id $party_id -to_object_type "dotlrn_club"] 0]
 
     if {$project_id > 0} {
 	set package_id [acs_object::get_element -object_id $project_id -element package_id]
 	set base_url [apm_package_url_from_id $package_id]
 	set project_url [export_vars -base $base_url {{project_item_id $project_id}}]
+	set projects_enabled_p 1
     } else {
+	set projects_enabled_p 0
 	set project_url ""
     }
 
-    set projects_enabled_p 1
+    if {$dotlrn_club_id > 0} {
+	set club_url [dotlrn_community::get_community_url $dotlrn_club_id]
+	set dotlrn_club_enabled_p 1
+    } else {
+	set dotlrn_club_enabled_p 0
+    }
 } else {
-    set projects_enabled_p 0
+
 }