loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

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

version 1.38, 2002/12/06 21:56:22	version 1.40, 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 185 sub BuildProblemStatisticsPage {	Line 184 sub BuildProblemStatisticsPage {
$Ptr .= '<td align="left">'."\n";	$Ptr .= '<td align="left">'."\n";
my @sections = split(':',$cache{'sectionList'});	my @sections = split(':',$cache{'sectionList'});
my @sectionsSelected = split(':',$cache{'sectionsSelected'});	my @sectionsSelected = split(':',$cache{'sectionsSelected'});
$Ptr .= &Apache::lonhtmlcommon::MultipleSectionSelect(\@sections,	$Ptr .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
\@sectionsSelected,
'Statistics');
$Ptr .= '</td></tr>'."\n";	$Ptr .= '</td></tr>'."\n";
$Ptr .= &ProblemStatisticsButtons($cache{'DisplayFormat'},	$Ptr .= &ProblemStatisticsButtons($cache{'DisplayFormat'},
$cache{'DisplayLegend'},	$cache{'DisplayLegend'},
Line 304 sub DrawGraph {	Line 301 sub DrawGraph {

# $r->print('</form>'."\n");	# $r->print('</form>'."\n");
$r->print('<br>'."\n");	$r->print('<br>'."\n");
$r->print('<IMG src="/cgi-bin/graph.gif?'.	$r->print('<IMG src="/cgi-bin/graph.png?'.
(join('&', @GData)).'" border="1" />');	(join('&', @GData)).'" border="1" />');
# $r->print('<form>'."\n");	# $r->print('<form>'."\n");
$r->print('<br>'."\n");	$r->print('<br>'."\n");