loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

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

version 1.98, 2005/03/03 18:56:26	version 1.99, 2005/03/04 04:36:35
Line 713 sub BuildProblemStatisticsPage {	Line 713 sub BuildProblemStatisticsPage {
# it does not slow things down noticably.	# it does not slow things down noticably.
&Apache::loncoursedata::populate_weight_table();	&Apache::loncoursedata::populate_weight_table();
#	#
	($navmap,@sequences) =
	&Apache::lonstatistics::selected_sequences_with_assessments();
	if (! ref($navmap)) {
	$r->print('<h1>'.&mt('A course-wide error occured.').'</h1>'.
	'<h3>'.$navmap.'</h3>');
	return;
	}
if (exists($ENV{'form.Excel'})) {	if (exists($ENV{'form.Excel'})) {
&Excel_output($r);	&Excel_output($r);
} else {	} else {
Line 720 sub BuildProblemStatisticsPage {	Line 727 sub BuildProblemStatisticsPage {
&mt('Produce Excel Output').'" />'.' 'x5);	&mt('Produce Excel Output').'" />'.' 'x5);
$r->rflush();	$r->rflush();
my $count = 0;	my $count = 0;
($navmap,@sequences) =
&Apache::lonstatistics::selected_sequences_with_assessments();
if (! ref($navmap)) {
$r->print('<h1>'.&mt('A course-wide error occured.').'</h1>'.
'<h3>'.$navmap.'</h3>');
return;
}
foreach my $seq (@sequences) {	foreach my $seq (@sequences) {
my @resources =	my @resources =
&Apache::lonstathelpers::get_resources($navmap,$seq);	&Apache::lonstathelpers::get_resources($navmap,$seq);