Index: openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.xql	5 Nov 2001 22:34:23 -0000	1.1
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.xql	10 Nov 2001 18:03:23 -0000	1.2
@@ -2,6 +2,12 @@
 
 <queryset>
 
+<fullquery name="dotlrn::user_get_role.select_user_role">
+<querytext>
+select role from dotlrn_users where user_id = :user_id
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn::user_add.update_user_page_id">
 <querytext>
 update dotlrn_users set page_id= :page_id