Index: openacs-4/packages/contacts/lib/contact-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-master.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts/lib/contact-master.tcl	19 May 2005 16:45:52 -0000	1.2
+++ openacs-4/packages/contacts/lib/contact-master.tcl	19 May 2005 23:03:23 -0000	1.3
@@ -38,40 +38,36 @@
     lappend link_list "/contacts/comments"
     lappend link_list "Comments"
 
-    lappend link_list "/tasks/"
-    lappend link_list "Tasks"
+    if { [site_node::get_package_url -package_key "tasks"] != "" } {
+	lappend link_list "/tasks/contact"
+	lappend link_list "Tasks"
+    }
 
     lappend link_list "/contacts/message"
     lappend link_list "Mail"
 }
-#    lappend link_list "/tasks/contact"
-#    lappend link_list "Tasks"
+
+# not yet implemented
 #    lappend link_list "/contacts/contact-files"
 #    lappend link_list "Files"
 #    lappend link_list "/contacts/contact-history"
 #    lappend link_list "History"
 
 
 
-if { $admin_p } {
 
-}
 
-
 # Convert the list to a multirow and add the selected_p attribute
 multirow create links label url selected_p
 
 foreach {url label} $link_list {
     set selected_p 0
 
     if {[string equal $page_url $url]} {
-
-
         set selected_p 1
         if { $url != "/contacts/contact" } {
             set context [list [list [contact::url -party_id $party_id] $name] $label]
         }
-
     }
 
     multirow append links $label [export_vars -base $url -url {party_id}] $selected_p
@@ -81,12 +77,13 @@
 
 
 
+if { [contact::type -party_id $party_id] == "person" } {
+    set public_url [acs_community_member_url -user_id $party_id]
+}
 
 
 
 
 
 
-
-
 ad_return_template