Diff for /loncom/auth/lonauth.pm between versions 1.27 and 1.31

version 1.27, 2001/11/29 19:12:44 version 1.31, 2002/05/29 14:51:42
Line 103  sub success { Line 103  sub success {
     if (($httpbrowser=~/mac/i) ||      if (($httpbrowser=~/mac/i) ||
         ($httpbrowser=~/powerpc/i)) { $clientos='mac'; }          ($httpbrowser=~/powerpc/i)) { $clientos='mac'; }
     if ($httpbrowser=~/win/i) { $clientos='win'; }      if ($httpbrowser=~/win/i) { $clientos='win'; }
       if ($httpbrowser=~/embed/i) { $clientos='pda'; }
   
 # ------------------------------------------------------------- Get environment  # ------------------------------------------------------------- Get environment
   
Line 143  sub success { Line 144  sub success {
     $idf->close();      $idf->close();
         }          }
          $ENV{'request.role'}='cm';           $ENV{'request.role'}='cm';
            $ENV{'browser.type'}=$clientbrowser;
 # -------------------------------------------------------------------- Log this  # -------------------------------------------------------------------- Log this
   
     &Apache::lonnet::log($domain,$username,$authhost,      &Apache::lonnet::log($domain,$username,$authhost,
Line 161  sub success { Line 163  sub success {
   
     $cookie="lonID=$cookie; path=/";      $cookie="lonID=$cookie; path=/";
 # -------------------------------------------------------- Menu script and info  # -------------------------------------------------------- Menu script and info
     my $windowinfo=&Apache::lonmenu::open();      my $windowinfo=&Apache::lonmenu::open($clientos);
 # ------------------------------------------------------------- Info for Remote  # ------------------------------------------------------------- Info for Remote
     my $configmenu=&Apache::lonmenu::rawconfig();      my $configmenu=&Apache::lonmenu::rawconfig($r);
 # ------------------------------------------------- Output for successful login  # ------------------------------------------------- Output for successful login
   
     $r->send_cgi_header(<<ENDHEADER);      $r->send_cgi_header(<<ENDHEADER);
Line 184  function checkdef() { Line 186  function checkdef() {
 }  }
   
 // ---------------------------------------------------------- The wait function  // ---------------------------------------------------------- The wait function
   var canceltim;
 function wait() {  function wait() {
    if ((menuloaded==1) || (tim==1)) {     if ((menuloaded==1) || (tim==1)) {
       if (tim==0) {        if (tim==0) {

Removed from v.1.27  
changed lines
  Added in v.1.31


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