Index: openacs-4/packages/contacts-lite/www/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts-lite/www/one.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/contacts-lite/www/one.tcl	20 Jan 2021 21:17:08 -0000	1.2
+++ openacs-4/packages/contacts-lite/www/one.tcl	20 Jan 2021 21:21:08 -0000	1.3
@@ -23,13 +23,13 @@
 }
 
 set context_bar [ad_context_bar "Contact Info"]
-set user_id [ad_verify_and_get_user_id]
+set user_id [ad_conn user_id]
 
 set contact_admin_p [group::member_p -group_name "Employees"]
 set admin $contact_admin_p
 
 if { $admin ne "1" } {
-        set contact_write_p [ad_permission_p $contact_id "write"]
+        set contact_write_p [permission::permission_p -object_id $contact_id -privilege "write"]
 } else {
         set contact_write_p 1
 }