version 1.50, 2002/09/01 06:23:19
|
version 1.52, 2002/10/21 00:19:39
|
Line 509 sub BuildStatistics {
|
Line 509 sub BuildStatistics {
|
'updateTime'); |
'updateTime'); |
my @headings=('Full Name', 'Section', 'PID', 'Domain', 'User Name', |
my @headings=('Full Name', 'Section', 'PID', 'Domain', 'User Name', |
'Last Updated'); |
'Last Updated'); |
my $spacing = ' '; |
my $spacing = ' '; |
|
# my $spacing = ' '; |
|
|
my %reports = ('classlist' => 'Class list', |
my %reports = ('classlist' => 'Class list', |
'problem_statistics' => 'Problem Statistics', |
'problem_statistics' => 'Problem Statistics', |
'student_assessment' => 'Student Assessment', |
'student_assessment' => 'Student Assessment', |
Line 612 sub handler {
|
Line 614 sub handler {
|
|
|
# $jr = $r; |
# $jr = $r; |
|
|
|
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; } |
|
|
unless(&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) { |
unless(&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) { |
$ENV{'user.error.msg'}= |
$ENV{'user.error.msg'}= |
$r->uri.":vgr:0:0:Cannot view grades for complete course"; |
$r->uri.":vgr:0:0:Cannot view grades for complete course"; |