Index: openacs-4/packages/contacts/www/contact.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/contacts/www/contact.tcl	27 May 2005 09:35:43 -0000	1.5
+++ openacs-4/packages/contacts/www/contact.tcl	28 May 2005 15:44:06 -0000	1.6
@@ -77,11 +77,6 @@
 
 
 
-
-
-
-
-
 set live_revision [contact::live_revision -party_id $party_id]
 if { [exists_and_not_null live_revision] } {
     set update_date [db_string get_update_date { select to_char(publish_date,'Mon FMDD, YYYY at FMHH12:MIam') from cr_revisions where revision_id = :live_revision } -default {}]
@@ -94,8 +89,19 @@
     set tasks_enabled_p 0
 }
 
+# Get the linked projekt_id to display the subprojects
 
+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 ""
+}
 
 
+
+
 ad_return_template