Index: openacs-4/packages/contacts/www/contact.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/www/contact.tcl	18 May 2005 16:45:50 -0000	1.1
+++ openacs-4/packages/contacts/www/contact.tcl	19 May 2005 23:03:23 -0000	1.2
@@ -15,18 +15,10 @@
     }
 }
 
-#set attach_url [attachments::add_attachment_url \
-#                      -object_id $party_id \
-#                      -return_url [contact::url -party_id $party_id] \
-#                     -pretty_name [contact::name -party_id $party_id]]
-
-set admin_url [acs_community_member_admin_link -user_id $party_id -label "Admin Page"]
 set object_type [contact::type -party_id $party_id]
 set user_id [ad_conn user_id]
 set package_id [ad_conn package_id]
 
-# set form_elements [ams::ad_form::elements -package_key "contacts" -object_type $object_type -list_name "${object_type}_[ad_conn package_id]" -key party_id]
-
 set groups_belonging_to [db_list get_party_groups { select group_id from group_distinct_member_map where member_id = :party_id }]
 if { [lsearch $groups_belonging_to -2] < 0 } {
     ad_return_error "This users has not been approved" "This user is awaiting administrator approval"
@@ -47,7 +39,7 @@
     append form_elements " "
     append form_elements [ams::ad_form::elements -package_key "contacts" -object_type $object_type -list_name $form]
 }
-#ad_return_error "ERROR" $form_elements
+
 ad_form -name party_ae \
     -mode "display" \
     -form $form_elements \
@@ -119,7 +111,6 @@
         }
     }
     set sec [template::element::get_property party_ae $element section]
-    ns_log notice "mgeddert: $element section $sec"
 }
 
 
@@ -133,10 +124,12 @@
 }
 
 
+if { [site_node::get_package_url -package_key "tasks"] != "" } {
+    set tasks_enabled_p 1
+} else {
+    set tasks_enabled_p 0
+}
 
 
 
-
-
-
 ad_return_template