|
version 1.130, 2009/11/03 03:06:07
|
version 1.130.6.1, 2011/11/18 22:41:02
|
|
Line 489 sub handler {
|
Line 489 sub handler {
|
| } |
} |
| # ------------------------------------------------------------- This is allowed |
# ------------------------------------------------------------- This is allowed |
| if ($env{'request.course.id'}) { |
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+)$/; |
$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 540 sub handler {
|
Line 547 sub handler {
|
| } |
} |
| } |
} |
| $env{'request.symb'}=$symb; |
$env{'request.symb'}=$symb; |
| &Apache::lonnet::courseacclog($symb); |
unless ($skiplogging) { |
| |
&Apache::lonnet::courseacclog($symb); |
| |
} |
| } else { |
} else { |
| # ------------------------------------------------------- This is other content |
# ------------------------------------------------------- This is other content |
| &Apache::lonnet::courseacclog($requrl); |
unless ($skiplogging) { |
| |
&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'};; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonacc.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth