version 1.151, 2010/04/28 14:55:58
|
version 1.153, 2010/08/04 01:56:02
|
Line 792 sub handler {
|
Line 792 sub handler {
|
my $r=shift; |
my $r=shift; |
my $c = $r->connection(); |
my $c = $r->connection(); |
# |
# |
# Check for overloading |
|
my $loaderror=&Apache::lonnet::overloaderror($r); |
|
if ($loaderror) { return $loaderror; } |
|
$loaderror= |
|
&Apache::lonnet::overloaderror($r, |
|
$env{'course.'.$env{'request.course.id'}.'.home'}); |
|
if ($loaderror) { return $loaderror; } |
|
# |
|
# Check for access |
# Check for access |
if (! &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) { |
if (! &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) { |
$env{'user.error.msg'}= |
$env{'user.error.msg'}= |
Line 873 ENDSTYLE
|
Line 865 ENDSTYLE
|
&Apache::loncoursedata::delete_caches($env{'requres.course.id'}); |
&Apache::loncoursedata::delete_caches($env{'requres.course.id'}); |
} |
} |
# |
# |
|
my $GoToPage = $env{'form.reportSelected'}; |
|
# |
# Begin form output |
# Begin form output |
$r->print('<form name="Statistics" '); |
$r->print('<form name="Statistics" '); |
|
if ($GoToPage eq 'student_submission_reports') { |
|
$r->print('onsubmit="return checkanon();" '); |
|
} |
$r->print('method="post" action="/adm/statistics">'); |
$r->print('method="post" action="/adm/statistics">'); |
$r->rflush(); |
$r->rflush(); |
# |
|
my $GoToPage = $env{'form.reportSelected'}; |
|
# |
|
$r->print('<input type="hidden" name="reportSelected" value="'. |
$r->print('<input type="hidden" name="reportSelected" value="'. |
$GoToPage.'" />'); |
$GoToPage.'" />'); |
if($GoToPage eq 'activitylog') { |
if($GoToPage eq 'activitylog') { |