--- loncom/interface/loncreateuser.pm 2003/10/13 21:41:19 1.69 +++ 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.69 2003/10/13 21:41:19 albertel 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"); @@ -140,19 +148,19 @@ $selscript $bodytag
-

Set Individual User Roles

+

$lt{siur}

- +$lt{'dom'}:
Username: +
$lt{usr}: $sellink
-Domain:$domform
$domform
- +
-

Edit Custom Role Privileges

+

$lt{'ecrp'}

Name of Role: $choice
- + ENDDOCUMENT @@ -658,7 +666,7 @@ ENDTHREEHEAD if ($ENV{'form.makeuser'}) { # Create a new user $r->print(<Creating user "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}" +

Creating user "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"

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('
Home server: '.$home.' '. + $r->print('
Home server: '.$home.' '. $Apache::lonnet::libserv{$home}); } elsif (($ENV{'form.login'} ne 'nochange') && ($ENV{'form.login'} ne '' )) {