Index: openacs-4/packages/tasks-portlet/www/tasks-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tasks-portlet/www/tasks-portlet.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/tasks-portlet/www/tasks-portlet.tcl	28 Sep 2005 19:25:46 -0000	1.1
+++ openacs-4/packages/tasks-portlet/www/tasks-portlet.tcl	29 Sep 2005 13:40:23 -0000	1.2
@@ -6,4 +6,15 @@
 }
 
 array set config $cf
+
+# Integration with contacts
+set community_id [dotlrn_community::get_community_id_from_url]
+set organization_id [lindex [application_data_link::get_linked -from_object_id $community_id -to_object_type "organization"] 0]
+
+if {[exists_and_not_null organization_id]} {
+    set contact_id $organization_id
+} else {
+    set contact_id ""
+}
+
 set user_id [ad_conn user_id]