Index: openacs-4/packages/contacts/www/contact.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/contacts/www/contact.tcl	28 May 2005 15:44:06 -0000	1.6
+++ openacs-4/packages/contacts/www/contact.tcl	31 May 2005 17:08:41 -0000	1.7
@@ -89,19 +89,24 @@
     set tasks_enabled_p 0
 }
 
-# Get the linked projekt_id to display the subprojects
+# Get the linked projekt_id to display the subprojects if projects is installed
 
-set project_id [application_data_link::get_linked -from_object_id $party_id -to_object_type "content_item"]
+if { [string is false [empty_string_p [info procs "::application_data_link::get_linked"]]] } {
 
-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 project_id [application_data_link::get_linked -from_object_id $party_id -to_object_type "content_item"]
+
+    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}}]
+    } else {
+	set project_url ""
+    }
+
+    set projects_enabled_p 1
 } else {
-    set project_url ""
+    set projects_enabled_p 0
 }
 
 
-
-
 ad_return_template