loncom/interface/statistics/loncorrectproblemplot.pm - diff

Return to loncorrectproblemplot.pm CVS log

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

version 1.17, 2005/03/14 20:28:22	version 1.19, 2006/05/01 19:29:13
Line 28	Line 28
package Apache::loncorrectproblemplot;	package Apache::loncorrectproblemplot;

use strict;	use strict;
use Apache::lonnet();	use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::loncoursedata();	use Apache::loncoursedata();
Line 90 sub BuildCorrectProblemsPage {	Line 90 sub BuildCorrectProblemsPage {
$r->rflush();	$r->rflush();
#	#
# Determine which problem symbs we are to sum over	# Determine which problem symbs we are to sum over
if (exists($ENV{'form.CreatePlot'})) {	if (exists($env{'form.CreatePlot'})) {
my @ProblemSymbs;	my @ProblemSymbs;
my $total_weights = 0;	my $total_weights = 0;
my $title = '';	my $title = '';
Line 288 sub CreateInterface {	Line 288 sub CreateInterface {
##	##
## Environment variable initialization	## Environment variable initialization
my $Str;	my $Str;
$Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Correct Problems Plot');	$Str .= &Apache::lonhtmlcommon::breadcrumbs('Correct Problems Plot');
$Str .= '<p>';	$Str .= '<p>';
#	#
$Str .= '<table cellspacing="5">'."\n";	$Str .= '<table cellspacing="5">'."\n";