loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.49, 2002/08/30 15:35:08	version 1.51, 2002/09/16 20:09:46
Line 324 sub PrepareData {	Line 324 sub PrepareData {
return "Unable to tie hash to db file.";	return "Unable to tie hash to db file.";
}	}

if(!$isCached) {	# if(!$isCached) {
my $processTopResourceMapReturn=	my $processTopResourceMapReturn=
&Apache::loncoursedata::ProcessTopResourceMap(\%cache, $c, $r);	&Apache::loncoursedata::ProcessTopResourceMap(\%cache, $c);
if($processTopResourceMapReturn ne 'OK') {	if($processTopResourceMapReturn ne 'OK') {
untie(%cache);	untie(%cache);
return $processTopResourceMapReturn;	return $processTopResourceMapReturn;
}	}
}	# }

if($c->aborted()) {	if($c->aborted()) {
untie(%cache);	untie(%cache);
Line 612 sub handler {	Line 612 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";