--- loncom/interface/loncreateuser.pm 2002/03/22 22:23:23 1.28
+++ loncom/interface/loncreateuser.pm 2002/04/04 21:46:44 1.29
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.28 2002/03/22 22:23:23 matthew Exp $
+# $Id: loncreateuser.pm,v 1.29 2002/04/04 21:46:44 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.28 2002/03/22 22:23:23 matthew Exp $
+# $Id: loncreateuser.pm,v 1.29 2002/04/04 21:46:44 matthew Exp $
###
package Apache::loncreateuser;
@@ -260,12 +260,11 @@ ENDDOCHEAD
-
-
ENDFORMINFO
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);
my %incdomains;
my %inccourses;
+ my %home_servers = &get_home_servers($ccdomain);
foreach (%Apache::lonnet::hostdom) {
$incdomains{$_}=1;
}
@@ -275,6 +274,13 @@ ENDFORMINFO
}
}
if ($uhome eq 'no_host') {
+ my $home_server_list=
+ ''."\n";
+ foreach (sort keys(%home_servers)) {
+ $home_server_list.=
+ '\n";
+ }
$r->print(<
ID/Student Number