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 + }