Index: openacs-4/packages/contacts/www/contact.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v diff -u -r1.20 -r1.21 --- openacs-4/packages/contacts/www/contact.tcl 15 Jul 2005 21:01:52 -0000 1.20 +++ openacs-4/packages/contacts/www/contact.tcl 21 Jul 2005 20:19:14 -0000 1.21 @@ -18,15 +18,12 @@ set object_type [contact::type -party_id $party_id] set user_id [ad_conn user_id] -set default_group [contacts::default_group] - set package_url [ad_conn package_url] # Code for quickly adding an employee if {$object_type == "organization"} { - set employee_url [export_vars -base "/contacts/add/person" -url {{group_ids $default_group} {object_id_two "$party_id"} {rel_type "contact_rels_employment"}}] } else { set employee_url "" }