[BACK]Return to lonlogin.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonlogin.pm between versions 1.102 and 1.106

version 1.102, 2008/03/08 02:53:25 version 1.106, 2008/10/02 11:28:49
Line 83  sub handler { Line 83  sub handler {
     &Apache::loncommon::end_page();      &Apache::loncommon::end_page();
  $r->print(   $r->print(
                   $start_page                    $start_page
                  .'<h1>'.&mt('You are already logged in').'</h1>'                   .'<h1>'.&mt('You are already logged in!').'</h1>'
                  .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]logout[_4].',                   .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]logout[_4].',
                   '<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').'</p>'                    '<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').'</p>'
                  .'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'                   .'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'
Line 201  sub handler { Line 201  sub handler {
                 $hostname.                  $hostname.
                 '/adm/login?domain='.$authdomain.'">'.                  '/adm/login?domain='.$authdomain.'">'.
                 $hostname.'</a>'.                  $hostname.'</a>'.
                 ' (preferred)</font>'.$/;                  ' '.&mt('(preferred)').'</font>'.$/;
     $last=$hostname;      $last=$hostname;
         }          }
         $spares.= '<br />';          $spares.= '<br />';
Line 221  sub handler { Line 221  sub handler {
                 $hostname.'</a>';                  $hostname.'</a>';
     $last=$hostname;      $last=$hostname;
         }          }
  $r->print(<<ENDTROUBLE);   $r->print(
 <html>             '<html>'
 <head><title>The LearningOnline Network with CAPA</title></head>            .'<head><title>'
 <body bgcolor="#FFFFFF">            .&mt('The LearningOnline Network with CAPA')
 <img src="/adm/lonKaputt/lonlogo_broken.gif" align="right" />            .'</title></head>'
 <h3>This LON-CAPA server is temporarily not available for login</h3>            .'<body bgcolor="#FFFFFF">'
 <p>Please attempt to login to one of the following servers:</p>$spares            .'<h1>'.&mt('The LearningOnline Network with CAPA').'</h1>'
 </body>            .'<img src="/adm/lonKaputt/lonlogo_broken.gif" align="right" />'
 </html>            .'<h3>'.&mt('This LON-CAPA server is temporarily not available for login.').'</h3>'
 ENDTROUBLE            .'<p>'.&mt('Please attempt to login to one of the following servers:').'</p>'
             .$spares
             .'</body>'
             .'</html>'
           );
         return OK;          return OK;
     }      }
   
Line 343  my %lt=&Apache::lonlocal::texthash( Line 347  my %lt=&Apache::lonlocal::texthash(
   'pw'  => 'Password',    'pw'  => 'Password',
   'dom' => 'Domain',    'dom' => 'Domain',
   'perc' => 'percent',    'perc' => 'percent',
   'load' => 'Load',    'load' => 'Server Load',
                   'userload' => 'User Load',                    'userload' => 'User Load',
                   'about'  => 'About LON-CAPA',                    'about'  => 'About LON-CAPA',
                   'access' => 'Accessibility Options',                    'access' => 'Accessibility Options',
Line 503  ENDNOOPT Line 507  ENDNOOPT
         $logintitle = '<td bgcolor="'.$sidebg.'" colspan="2"><img src="'.$login.'" alt="'.          $logintitle = '<td bgcolor="'.$sidebg.'" colspan="2"><img src="'.$login.'" alt="'.
                       &mt('User Authentication').'" /></td>';                        &mt('User Authentication').'" /></td>';
     }      }
       my $noscript_warning='<td colspan="2" bgcolor="'.$mainbg.'">'
                           .'<noscript><div class="LC_warning"><font size="-1">'
                           .&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.')
                           .'</font></div></noscript></td>';
     $r->print(<<ENDLOGIN);      $r->print(<<ENDLOGIN);
      <input type="hidden" name="lextkey" value="$lextkey">       <input type="hidden" name="lextkey" value="$lextkey">
      <input type="hidden" name="uextkey" value="$uextkey">       <input type="hidden" name="uextkey" value="$uextkey">
Line 510  ENDNOOPT Line 518  ENDNOOPT
      <!-- Start the sub-table for text and input alignment -->       <!-- Start the sub-table for text and input alignment -->
      <table border=0 cellspacing=0 cellpadding=0>       <table border=0 cellspacing=0 cellpadding=0>
       <tr>$logintitle</tr>        <tr>$logintitle</tr>
         <tr>$noscript_warning</tr>
       <tr>        <tr>
        <td bgcolor="$mainbg"><br /><font size=-1><b>&nbsp;&nbsp;&nbsp;<label for="uname">$lt{'un'}</label>:</b></font></td>         <td bgcolor="$mainbg"><br /><font size=-1><b>&nbsp;&nbsp;&nbsp;<label for="uname">$lt{'un'}</label>:</b></font></td>
        <td bgcolor="$mainbg"><br /><input type="text" name="uname" size="10" value="$authusername" /></td>         <td bgcolor="$mainbg"><br /><input type="text" name="uname" size="10" value="$authusername" /></td>
Removed from v.1.102  
changed lines
  Added in v.1.106

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>