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

Diff for /loncom/auth/lonacc.pm between versions 1.130.6.1 and 1.131

version 1.130.6.1, 2011/11/18 22:41:02 version 1.131, 2010/03/03 21:33:10
Line 417  sub handler { Line 417  sub handler {
                 my $preserved;                  my $preserved;
                 foreach my $pair (split(/&/,$query)) {                  foreach my $pair (split(/&/,$query)) {
                     my ($name, $value) = split(/=/,$pair);                      my ($name, $value) = split(/=/,$pair);
                     unless (($name eq 'symb') || ($name eq 'wrapperdisplay')) {                      unless ($name eq 'symb') {
                         $preserved .= $pair.'&';                          $preserved .= $pair.'&';
                     }                      }
                 }                  }
Line 489  sub handler { Line 489  sub handler {
  }   }
 # ------------------------------------------------------------- This is allowed  # ------------------------------------------------------------- This is allowed
  if ($env{'request.course.id'}) {   if ($env{'request.course.id'}) {
             my $skiplogging;      &Apache::lonnet::countacc($requrl);
             if ((!&Apache::loncommon::needs_gci_custom()) &&    
                 ($env{'course.'.$env{'request.course.id'}.'.internal.courseowner'} ne $env{'user.name'}.':'.$env{'user.domain'})) {  
                 $skiplogging = 1;  
             }  
             unless ($skiplogging) {  
         &Apache::lonnet::countacc($requrl);  
             }  
     $requrl=~/\.(\w+)$/;      $requrl=~/\.(\w+)$/;
             my $query=$r->args;              my $query=$r->args;
     if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') ||      if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') ||
Line 547  sub handler { Line 540  sub handler {
     }      }
  }   }
  $env{'request.symb'}=$symb;   $env{'request.symb'}=$symb;
                 unless ($skiplogging) {   &Apache::lonnet::courseacclog($symb);
     &Apache::lonnet::courseacclog($symb);  
                 }  
     } else {      } else {
 # ------------------------------------------------------- This is other content  # ------------------------------------------------------- This is other content
                 unless ($skiplogging) {   &Apache::lonnet::courseacclog($requrl);    
     &Apache::lonnet::courseacclog($requrl);  
                 }  
     }      }
             my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};;              my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};;
             my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};;              my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};;
Removed from v.1.130.6.1  
changed lines
  Added in v.1.131

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