--- loncom/interface/loncreateuser.pm 2003/09/21 21:40:06 1.68 +++ loncom/interface/loncreateuser.pm 2003/10/18 16:06:47 1.70 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Create a user # -# $Id: loncreateuser.pm,v 1.68 2003/09/21 21:40:06 www Exp $ +# $Id: loncreateuser.pm,v 1.70 2003/10/18 16:06:47 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -548,7 +548,7 @@ ENDCOAUTH '<th>Start</th><th>End</th></tr>'); foreach ( sort( keys(%incdomains))) { my $thisdomain=$_; - foreach ('dc','li','dg','au') { + foreach ('dc','li','dg','au','sc') { if (&Apache::lonnet::allowed('c'.$_,$thisdomain)) { my $plrole=&Apache::lonnet::plaintext($_); $r->print(<<ENDDROW); @@ -658,7 +658,7 @@ ENDTHREEHEAD if ($ENV{'form.makeuser'}) { # Create a new user $r->print(<<ENDNEWUSERHEAD); -<h3>Creating user "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"</h2> +<h3>Creating user "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"</h3> ENDNEWUSERHEAD # Check for the authentication mode and password if (! $amode || ! $genpwd) { @@ -687,7 +687,7 @@ ENDNEWUSERHEAD $r->print('Generating user: '.$result); my $home = &Apache::lonnet::homeserver($ENV{'form.ccuname'}, $ENV{'form.ccdomain'}); - $r->print('<br>Home server: '.$home.' '. + $r->print('<br />Home server: '.$home.' '. $Apache::lonnet::libserv{$home}); } elsif (($ENV{'form.login'} ne 'nochange') && ($ENV{'form.login'} ne '' )) {