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"); |