loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

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

version 1.17, 2002/12/11 21:39:57	version 1.19, 2003/02/25 20:47:47
Line 1	Line 1
# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# (Publication Handler
#	#
# $Id$	# $Id$
#	#
Line 56 sub BuildProblemAnalysisPage {	Line 55 sub BuildProblemAnalysisPage {
$Ptr .= '<td align="left">'."\n";	$Ptr .= '<td align="left">'."\n";
my @sectionsSelected = split(':',$cache{'sectionsSelected'});	my @sectionsSelected = split(':',$cache{'sectionsSelected'});
my @sections = split(':',$cache{'sectionList'});	my @sections = split(':',$cache{'sectionList'});
$Ptr .= &Apache::lonhtmlcommon::MultipleSectionSelect(\@sections,	$Ptr .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
\@sectionsSelected,
'Statistics');
$Ptr .= '</td></tr>'."\n";	$Ptr .= '</td></tr>'."\n";
$Ptr .= '<tr><td align="right"><b>Intervals</b></td>'."\n";	$Ptr .= '<tr><td align="right"><b>Intervals</b></td>'."\n";
$Ptr .= '<td align="left">';	$Ptr .= '<td align="left">';
Line 436 sub DrawGraph {	Line 433 sub DrawGraph {
$GData = $Titr.'&Concepts&Answers&'.$Max.'&'.$P_No.'&';	$GData = $Titr.'&Concepts&Answers&'.$Max.'&'.$P_No.'&';
$GData .= (join(',',@data1)).'&'.(join(',',@data2));	$GData .= (join(',',@data1)).'&'.(join(',',@data2));

return '<IMG src="/cgi-bin/graph.gif?'.$GData.'" border=1/>';	return '<IMG src="/cgi-bin/graph.png?'.$GData.'" border=1/>';
}	}

sub DrawTable {	sub DrawTable {