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