--- loncom/interface/loncreateuser.pm 2004/01/15 03:18:19 1.76 +++ loncom/interface/loncreateuser.pm 2004/03/05 02:14:34 1.80 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Create a user # -# $Id: loncreateuser.pm,v 1.76 2004/01/15 03:18:19 www Exp $ +# $Id: loncreateuser.pm,v 1.80 2004/03/05 02:14:34 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -250,7 +250,7 @@ ENDFORMINFO ''."\n". &Apache::loncommon::home_server_option_list($ccdomain); - my %lt=&Apache::lonlocal::texthash( + my %lt=&Apache::lonlocal::texthash( 'cnu' => "Create New User", 'nu' => "New User", 'id' => "in domain", @@ -263,6 +263,7 @@ ENDFORMINFO 'hs' => "Home Server", 'lg' => "Login Data" ); + my $genhelp=&Apache::loncommon::help_open_topic('Generation'); $r->print(<$lt{'cnu'} @@ -281,7 +282,7 @@ $loginscript $lt{'ln'} -$lt{'gen'} +$lt{'gen'}$genhelp $lt{'idsn'}

@@ -295,7 +296,7 @@ $lt{'hs'}: + $lt{'cau'} $cudom\_$cuname - + $lt{'ssd'} - + $lt{'sed'} @@ -760,10 +794,10 @@ ENDNEWUSERHEAD $ENV{'form.cmiddle'},$ENV{'form.clast'},$ENV{'form.cgen'}, undef,$desiredhost ); - $r->print('Generating user: '.$result); + $r->print(&mt('Generating user').': '.$result); my $home = &Apache::lonnet::homeserver($ENV{'form.ccuname'}, $ENV{'form.ccdomain'}); - $r->print('
'&mt('Home server').': '.$home.' '. + $r->print('
'.&mt('Home server').': '.$home.' '. $Apache::lonnet::libserv{$home}); } elsif (($ENV{'form.login'} ne 'nochange') && ($ENV{'form.login'} ne '' )) {