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.34 -r1.35
--- openacs-4/packages/contacts/www/contact.tcl	4 Mar 2006 23:54:40 -0000	1.34
+++ openacs-4/packages/contacts/www/contact.tcl	28 Nov 2006 17:33:41 -0000	1.35
@@ -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} {