--- loncom/interface/loncreateuser.pm	2002/04/22 18:04:19	1.32
+++ loncom/interface/loncreateuser.pm	2002/04/23 21:05:45	1.33
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.32 2002/04/22 18:04:19 matthew Exp $
+# $Id: loncreateuser.pm,v 1.33 2002/04/23 21:05:45 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -47,7 +47,7 @@
 # 11/12,11/13,11/15 Scott Harrison
 # 02/11/02 Matthew Hall
 #
-# $Id: loncreateuser.pm,v 1.32 2002/04/22 18:04:19 matthew Exp $
+# $Id: loncreateuser.pm,v 1.33 2002/04/23 21:05:45 matthew Exp $
 ###
 
 package Apache::loncreateuser;
@@ -85,7 +85,9 @@ BEGIN {
 sub phase_one {
     my $r=shift;
     my $defdom=$ENV{'user.domain'};
-    $r->print(<<ENDDOCUMENT);
+    my @domains = &Apache::loncommon::get_domains();
+    my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');
+    $r->print(<<"ENDDOCUMENT");
 <html>
 <head>
 <title>The LearningOnline Network with CAPA</title>
@@ -94,8 +96,10 @@ sub phase_one {
 <h1>Create User, Change User Privileges</h1>
 <form action=/adm/createuser method=post>
 <input type=hidden name=phase value=two>
+<p>
 Username: <input type=text size=15 name=ccuname><br>
-Domain: <input type=text size=15 name=ccdomain value=$defdom><p>
+Domain: $domform 
+</p>
 <input type=submit value="Continue">
 </form>
 </body>
