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

Diff for /loncom/auth/lonlogin.pm between versions 1.126 and 1.129

version 1.126, 2009/10/06 21:58:30 version 1.129, 2009/10/23 16:14:36
Line 113  sub handler { Line 113  sub handler {
   
     my $lonhost = $r->dir_config('lonHostID');      my $lonhost = $r->dir_config('lonHostID');
     my $domain = &Apache::lonnet::default_login_domain();      my $domain = &Apache::lonnet::default_login_domain();
     my %domconfig = &Apache::loncommon::get_domainconf($domain);      my %domconfhash = &Apache::loncommon::get_domainconf($domain);
     if ($lonhost ne '') {      if ($lonhost ne '') {
         if (ref($domconfig{login}) eq 'HASH') {          my $loginvia = $domconfhash{$domain.'.login.loginvia_'.$lonhost};
             if (ref($domconfig{login}{loginvia}) eq 'HASH') {          if (($loginvia ne '') && ($loginvia ne $lonhost)) {
                 if ($domconfig{login}{loginvia}{$lonhost}) {              if (&Apache::lonnet::hostname($loginvia) ne '') {
                     my $loginvia = $domconfig{login}{loginvia}{$lonhost};                  $r->print(&redirect_page($loginvia));
                     my %servers = &Apache::lonnet::get_servers($domain);                  return OK;
                     if (($servers{$loginvia} ne '') && ($loginvia ne $lonhost)) {  
                         $r->print(&redirect_page($loginvia));  
                         return OK;  
                     }  
                 }  
             }              }
         }          }
     }      }
Line 342  $r->print(&Apache::loncommon::start_page Line 337  $r->print(&Apache::loncommon::start_page
 # ----------------------------------------------------------------------- Texts  # ----------------------------------------------------------------------- Texts
   
 my %lt=&Apache::lonlocal::texthash(  my %lt=&Apache::lonlocal::texthash(
   'un'  => 'Username',            'un'       => 'Username',
   'pw'  => 'Password',            'pw'       => 'Password',
   'dom' => 'Domain',            'dom'      => 'Domain',
   'perc' => 'percent',            'perc'     => 'percent',
   'load' => 'Server Load',            'load'     => 'Server Load',
   'userload' => 'User Load',            'userload' => 'User Load',
   'catalog' => 'Course Catalog',            'catalog'  => 'Course/Community Catalog',
   'log' => 'Log in',            'log'      => 'Log in',
   'help' => 'Log-in Help',            'help'     => 'Log-in Help',
   'serv' => 'Server',            'serv'     => 'Server',
   'servadm' => 'Server Administration',            'servadm'  => 'Server Administration',
   'helpdesk' => 'Contact Helpdesk',            'helpdesk' => 'Contact Helpdesk',
   'forgotpw' => 'Forgot password?',            'forgotpw' => 'Forgot password?',
   'newuser'  => 'New User?',            'newuser'  => 'New User?',
   );         );
 # -------------------------------------------------- Change password field name  # -------------------------------------------------- Change password field name
 my $forgotpw = &forgotpwdisplay(%lt);  my $forgotpw = &forgotpwdisplay(%lt);
 my $loginhelp = &loginhelpdisplay(%lt);  my $loginhelp = &loginhelpdisplay(%lt);
Removed from v.1.126  
changed lines
  Added in v.1.129

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