Index: openacs-4/packages/dotlrn/www/user-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add-2.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn/www/user-add-2.tcl	24 Jul 2004 08:34:10 -0000	1.11
+++ openacs-4/packages/dotlrn/www/user-add-2.tcl	1 Mar 2005 00:01:27 -0000	1.12
@@ -85,7 +85,7 @@
 
 set context_bar [list [list "one-community-admin" [_ dotlrn.Admin]] [_ dotlrn.Add_User]]
 
-set admin_user_id [ad_verify_and_get_user_id]
+set admin_user_id [ad_conn user_id]
 set administration_name [db_string select_admin_name {
     select first_names || ' ' || last_name
     from persons