Index: openacs-4/packages/dotlrn/www/admin/user-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-new-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	7 Nov 2001 20:20:56 -0000	1.2
+++ openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	10 Nov 2001 18:03:23 -0000	1.3
@@ -1,15 +1,14 @@
 
 ad_page_contract {
-    Add an actual user
+    Choose a role
     
     @author Ben Adida (ben@openforce.net)
     @creation-date 2001-11-04
 } {
     user_id
 }
 
-# Add the user
-dotlrn::user_add $user_id
+db_1row select_user_info "select first_names,last_name from registered_users where user_id= :user_id"
 
-ad_returnredirect "users"
+ad_return_template