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

Diff for /loncom/auth/lonauth.pm between versions 1.69 and 1.71

version 1.69, 2005/07/07 06:18:37 version 1.71, 2005/11/10 19:19:08
Line 40  use Apache::lonnet; Line 40  use Apache::lonnet;
 use Apache::lonmenu();  use Apache::lonmenu();
 use Fcntl qw(:flock);  use Fcntl qw(:flock);
 use Apache::lonlocal;  use Apache::lonlocal;
   use POSIX qw(mktime);
   
 my %FORM;  my %FORM;
   
Line 152  sub success { Line 153  sub success {
            print $idf "browser.localpath=$FORM{'localpath'}\n";             print $idf "browser.localpath=$FORM{'localpath'}\n";
            print $idf "browser.localres=$FORM{'localres'}\n";             print $idf "browser.localres=$FORM{'localres'}\n";
         }          }
           print $idf "server.domain=".$r->dir_config('lonDefDomain')."\n";
           my $timezone='UTC';
           my $timediff=POSIX::mktime(localtime())-POSIX::mktime(gmtime());
           if ($timediff) {
       my $hours=int($timediff/3600);
               my $minutes=abs(int(($timediff-$hours*3600)/60));
               my $sign="+";
               if ($timediff<0) {
    $sign="-";
       }
               $timezone.=$sign.abs($hours).':'.substr("0$minutes",-2);
    }
           print $idf "server.timezone=$timezone\n";
  print $idf "request.course.fn=\n";   print $idf "request.course.fn=\n";
  print $idf "request.course.uri=\n";   print $idf "request.course.uri=\n";
  print $idf "request.course.sec=\n";   print $idf "request.course.sec=\n";
Line 195  sub success { Line 209  sub success {
   
 # ------------------------------------------------------------ Get cookie ready  # ------------------------------------------------------------ Get cookie ready
   
     if ($public) { return $cookie; }      if ($public or $lowerurl eq 'noredirect') { return $cookie; }
   
     $cookie="lonID=$cookie; path=/";      $cookie="lonID=$cookie; path=/";
 # -------------------------------------------------------- Menu script and info  # -------------------------------------------------------- Menu script and info
     my $windowinfo=&Apache::lonmenu::open($clientos);      my $windowinfo=&Apache::lonmenu::open($clientos);
Removed from v.1.69  
changed lines
  Added in v.1.71

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