version 1.19, 2002/08/13 00:37:18
|
version 1.20, 2002/08/13 12:21:46
|
Line 69 sub BuildProblemStatisticsPage {
|
Line 69 sub BuildProblemStatisticsPage {
|
'ProblemStatistics', |
'ProblemStatistics', |
'Statistics'); |
'Statistics'); |
$Ptr .= '</td></tr>'."\n"; |
$Ptr .= '</td></tr>'."\n"; |
$Ptr .= &ProblemStatisticsButtons($cache{'DisplayFormat'}); |
$Ptr .= &ProblemStatisticsButtons($cache{'DisplayFormat'}, |
|
$cache{'DisplayLegend'}); |
$Ptr .= '</table>'; |
$Ptr .= '</table>'; |
$Ptr .= &ProblemStatisticsLegend(); |
if($cache{'DisplayLegend'} eq 'Show Legend') { |
|
$Ptr .= &ProblemStatisticsLegend(); |
|
} |
$r->print($Ptr); |
$r->print($Ptr); |
$r->rflush(); |
$r->rflush(); |
|
|
Line 356 sub setbgcolor {
|
Line 359 sub setbgcolor {
|
} |
} |
|
|
sub ProblemStatisticsButtons { |
sub ProblemStatisticsButtons { |
my ($displayFormat)=@_; |
my ($displayFormat, $displayLegend)=@_; |
|
|
my $Ptr = '<tr><td></td><td align="left">'; |
my $Ptr = '<tr><td></td><td align="left">'; |
$Ptr .= '<input type="submit" name="DoDiffGraph" '; |
$Ptr .= '<input type="submit" name="DoDiffGraph" '; |
Line 364 sub ProblemStatisticsButtons {
|
Line 367 sub ProblemStatisticsButtons {
|
$Ptr .= ' '; |
$Ptr .= ' '; |
$Ptr .= '<input type="submit" name="PercentWrongGraph" '; |
$Ptr .= '<input type="submit" name="PercentWrongGraph" '; |
$Ptr .= 'value="%Wrong Graph" />'."\n"; |
$Ptr .= 'value="%Wrong Graph" />'."\n"; |
|
$Ptr .= '</td></tr><tr><td></td><td>'."\n"; |
|
$Ptr .= '<input type="submit" name="DisplayLegend" '; |
|
if($displayLegend eq 'Show Legend') { |
|
$Ptr .= 'value="Hide Legend" />'."\n"; |
|
} else { |
|
$Ptr .= 'value="Show Legend" />'."\n"; |
|
} |
$Ptr .= ' '; |
$Ptr .= ' '; |
$Ptr .= '<input type="submit" name="DisplayCSVFormat" '; |
$Ptr .= '<input type="submit" name="DisplayCSVFormat" '; |
if($displayFormat eq 'Display CSV Format') { |
if($displayFormat eq 'Display CSV Format') { |