Index: openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl 11 May 2005 13:45:27 -0000 1.5
+++ openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl 8 Aug 2006 21:26:28 -0000 1.6
@@ -31,15 +31,15 @@
set dotlrn_admins_group [db_string group_id_from_name "
select group_id from groups where group_name='dotlrn-admin'" -default ""]
-set admin_id [ad_conn user_id]
+set admin_id [ad_verify_and_get_user_id]
set elements [list user \
[list label "User" \
link_url_col user_url ] \
remove \
[list label "Remove" \
link_url_col remove_url \
- display_template { } \
+ display_template { } \
sub_class narrow ] \
]