--- loncom/interface/loncreateuser.pm	2003/12/11 14:58:00	1.73
+++ loncom/interface/loncreateuser.pm	2004/01/01 02:16:29	1.75
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.73 2003/12/11 14:58:00 sakharuk Exp $
+# $Id: loncreateuser.pm,v 1.75 2004/01/01 02:16:29 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -281,7 +281,7 @@ $loginscript
     <td><input type='text' name='cgen'    size='5'  /></td></tr>
 </table>
 $lt{'idsn'} <input type='text' name='cstid'   size='15' /></p>
-${'hs'}: <select name="hserver" size="1"> $home_server_list </select>
+$lt{'hs'}: <select name="hserver" size="1"> $home_server_list </select>
 <hr />
 <h3>$lt{'lg'}</h3>
 <p>$generalrule </p>
@@ -588,7 +588,7 @@ ENDOTHERAUTHS
 				       );
        $r->print(<<ENDCOAUTH);
 <h4>$lt{'cs'}</h4>
-<table border=2><tr><th>${'act'}</th><th>${'rol'}</th><th>${'ext'}</th>
+<table border=2><tr><th>$lt{'act'}</th><th>$lt{'rol'}</th><th>$lt{'ext'}</th>
 <th>$lt{'sta'}</th><th>$lt{'end'}</th></tr>
 <tr>
 <td><input type=checkbox name="act_$cudom\_$cuname\_ca"></td>
@@ -862,7 +862,7 @@ END
                            'gen'  => "Generation"
 					       );
                 $r->print(<<"END");
-<h2>$lt{'usr'} "$ENV{'form.ccuname'}" ${'id'} "$ENV{'form.ccdomain'}"</h2>
+<h2>$lt{'usr'} "$ENV{'form.ccuname'}" $lt{'id'} "$ENV{'form.ccdomain'}"</h2>
 <h4>$userenv{'firstname'} $userenv{'middlename'} $userenv{'lastname'} </h4>
 <h4>$lt{'gen'}: $userenv{'generation'}</h4>
 END
@@ -1002,6 +1002,8 @@ END
             }
 	} 
     } # End of foreach (keys(%ENV))
+# Flush the course logs so reverse user roles immediately updated
+    &Apache::lonnet::flushcourselogs();
     $r->print('</body></html>');
 }