--- loncom/auth/lonlogin.pm 2008/03/08 02:53:25 1.102 +++ loncom/auth/lonlogin.pm 2008/10/02 11:28:49 1.106 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.102 2008/03/08 02:53:25 raeburn Exp $ +# $Id: lonlogin.pm,v 1.106 2008/10/02 11:28:49 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -83,7 +83,7 @@ sub handler { &Apache::loncommon::end_page(); $r->print( $start_page - .'

'.&mt('You are already logged in').'

' + .'

'.&mt('You are already logged in!').'

' .'

'.&mt('Please either [_1]continue the current session[_2] or [_3]logout[_4].', '','','','').'

' .'

'.&mt('Login problems?').'

' @@ -201,7 +201,7 @@ sub handler { $hostname. '/adm/login?domain='.$authdomain.'">'. $hostname.''. - ' (preferred)'.$/; + ' '.&mt('(preferred)').''.$/; $last=$hostname; } $spares.= '
'; @@ -221,16 +221,20 @@ sub handler { $hostname.''; $last=$hostname; } - $r->print(< -The LearningOnline Network with CAPA - - -

This LON-CAPA server is temporarily not available for login

-

Please attempt to login to one of the following servers:

$spares - - -ENDTROUBLE + $r->print( + '' + .'' + .&mt('The LearningOnline Network with CAPA') + .'' + .'' + .'

'.&mt('The LearningOnline Network with CAPA').'

' + .'' + .'

'.&mt('This LON-CAPA server is temporarily not available for login.').'

' + .'

'.&mt('Please attempt to login to one of the following servers:').'

' + .$spares + .'' + .'' + ); return OK; } @@ -343,7 +347,7 @@ my %lt=&Apache::lonlocal::texthash( 'pw' => 'Password', 'dom' => 'Domain', 'perc' => 'percent', - 'load' => 'Load', + 'load' => 'Server Load', 'userload' => 'User Load', 'about' => 'About LON-CAPA', 'access' => 'Accessibility Options', @@ -503,6 +507,10 @@ ENDNOOPT $logintitle = ''. &mt('User Authentication').''; } + my $noscript_warning='' + .''; $r->print(< @@ -510,6 +518,7 @@ ENDNOOPT $logintitle + $noscript_warning

   :