--- loncom/interface/loncreateuser.pm	2003/09/21 21:40:06	1.68
+++ loncom/interface/loncreateuser.pm	2003/12/10 19:34:53	1.71
@@ -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.71 2003/12/10 19:34:53 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -131,6 +131,14 @@ sub print_username_entry_form {
     my %existingroles=&my_custom_roles();
     my $choice=&Apache::loncommon::select_form('make new role','rolename',
 		('make new role' => 'Generate new role ...',%existingroles));
+    my %lt=&Apache::lonlocal::texthash(
+		    'siur'   => "Set Individual User Roles",
+		    'usr'  => "Username",
+                    'dom'  => "Domain",
+                    'usrr' => "User Roles",
+                    'ecrp' => "Edit Custom Role Privileges",
+                    'cre'  => "Custom Role Editor"
+				       );
     $r->print(<<"ENDDOCUMENT");
 <html>
 <head>
@@ -140,19 +148,19 @@ $selscript
 $bodytag
 <form action="/adm/createuser" method="post" name="crtuser">
 <input type="hidden" name="phase" value="get_user_info">
-<h2>Set Individual User Roles</h2>
+<h2>$lt{siur}</h2>
 <table>
-<tr><td>Username:</td><td><input type="text" size="15" name="ccuname">
+<tr><td>$lt{usr}:</td><td><input type="text" size="15" name="ccuname">
 </td><td rowspan="2">$sellink</td></tr><tr><td>
-Domain:</td><td>$domform</td></tr>
+$lt{'dom'}:</td><td>$domform</td></tr>
 </table>
-<input name="userrole" type="submit" value="User Roles" />
+<input name="userrole" type="submit" value="$lt{usrr}" />
 </form>
 <form action="/adm/createuser" method="post" name="docustom">
 <input type="hidden" name="phase" value="selected_custom_edit">
-<h2>Edit Custom Role Privileges</h2>
+<h2>$lt{'ecrp'}</h2>
 Name of Role: $choice <input type="text" size="15" name="newrolename" /><br />
-<input name="customeditor" type="submit" value="Custom Role Editor" />
+<input name="customeditor" type="submit" value="$lt{'cre'}" />
 </body>
 </html>
 ENDDOCUMENT
@@ -548,7 +556,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 +666,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 +695,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 ''        )) {
