--- loncom/auth/lonacc.pm 2009/11/03 03:06:07 1.130 +++ loncom/auth/lonacc.pm 2011/11/18 22:41:02 1.130.6.1 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.130 2009/11/03 03:06:07 raeburn Exp $ +# $Id: lonacc.pm,v 1.130.6.1 2011/11/18 22:41:02 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -489,7 +489,14 @@ sub handler { } # ------------------------------------------------------------- This is allowed if ($env{'request.course.id'}) { - &Apache::lonnet::countacc($requrl); + my $skiplogging; + 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+)$/; my $query=$r->args; if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || @@ -540,10 +547,14 @@ sub handler { } } $env{'request.symb'}=$symb; - &Apache::lonnet::courseacclog($symb); + unless ($skiplogging) { + &Apache::lonnet::courseacclog($symb); + } } else { # ------------------------------------------------------- This is other content - &Apache::lonnet::courseacclog($requrl); + unless ($skiplogging) { + &Apache::lonnet::courseacclog($requrl); + } } my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};; my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};;