loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

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') {