|
version 1.16, 2002/11/25 18:17:36
|
version 1.18, 2002/12/13 21:39:19
|
|
Line 66 sub BuildProblemAnalysisPage {
|
Line 66 sub BuildProblemAnalysisPage {
|
| $Ptr .= '</td></tr></table><br>'; |
$Ptr .= '</td></tr></table><br>'; |
| $r->print($Ptr); |
$r->print($Ptr); |
| $r->rflush(); |
$r->rflush(); |
| |
# $r->print($cache{'OptionResponses'}.'<br>'); |
| $r->print(&OptionResponseTable($cache{'OptionResponses'}, \%cache, $r)); |
$r->print(&OptionResponseTable($cache{'OptionResponses'}, \%cache, $r)); |
| |
|
| untie(%cache); |
untie(%cache); |
|
Line 435 sub DrawGraph {
|
Line 436 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 { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonproblemanalysis.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / statistics