Index: openacs-4/packages/contacts/www/contact.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v
diff -u -N -r1.35 -r1.36
--- openacs-4/packages/contacts/www/contact.tcl	28 Nov 2006 17:33:41 -0000	1.35
+++ openacs-4/packages/contacts/www/contact.tcl	5 Dec 2006 04:16:50 -0000	1.36
@@ -49,7 +49,7 @@
 
 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 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 && $dotlrn_club_id <1} {