loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.50, 2002/09/01 06:23:19	version 1.53, 2002/10/22 16:30:34
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 %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 613 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";