loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.104, 2005/04/07 06:56:24	version 1.105, 2005/08/26 21:53:23
Line 661 Main interface to problem statistics.	Line 661 Main interface to problem statistics.
my $navmap;	my $navmap;
my @sequences;	my @sequences;

	sub clean_up {
	undef($navmap);
	undef(@sequences);
	}

sub BuildProblemStatisticsPage {	sub BuildProblemStatisticsPage {
my ($r,$c)=@_;	my ($r,$c)=@_;
undef($navmap);	undef($navmap);
Line 705 sub BuildProblemStatisticsPage {	Line 710 sub BuildProblemStatisticsPage {
'for the first analysis. Future analysis this session '.	'for the first analysis. Future analysis this session '.
' will not have this delay.').	' will not have this delay.').
'</p>');	'</p>');
	&clean_up();
return;	return;
}	}
$r->rflush();	$r->rflush();
Line 718 sub BuildProblemStatisticsPage {	Line 724 sub BuildProblemStatisticsPage {
if (! ref($navmap)) {	if (! ref($navmap)) {
$r->print('<h1>'.&mt('A course-wide error occured.').'</h1>'.	$r->print('<h1>'.&mt('A course-wide error occured.').'</h1>'.
'<h3>'.$navmap.'</h3>');	'<h3>'.$navmap.'</h3>');
	&clean_up();
return;	return;
}	}
if (exists($env{'form.Excel'})) {	if (exists($env{'form.Excel'})) {
Line 765 sub BuildProblemStatisticsPage {	Line 772 sub BuildProblemStatisticsPage {
&output_sequence_statistics($r);	&output_sequence_statistics($r);
}	}
}	}
	&clean_up();
return;	return;
}	}