Return to loncreateuser.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.48, 2003/02/13 21:35:50 | version 1.49, 2003/03/23 08:31:41 |
---|---|
Line 193 ENDFORMINFO | Line 193 ENDFORMINFO |
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); | my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
my %incdomains; | my %incdomains; |
my %inccourses; | my %inccourses; |
foreach (%Apache::lonnet::hostdom) { | foreach (values(%Apache::lonnet::hostdom)) { |
$incdomains{$_}=1; | $incdomains{$_}=1; |
} | } |
foreach (keys(%ENV)) { | foreach (keys(%ENV)) { |