version 1.76, 2003/06/10 19:19:57
|
version 1.77, 2003/06/16 15:54:58
|
Line 857 sub CreateMainMenu {
|
Line 857 sub CreateMainMenu {
|
# |
# |
my $Str = ''; |
my $Str = ''; |
# |
# |
$Str .= '<table border="0"><tbody><tr>'."\n"; |
$Str = '<input type="hidden" name="reportSelected" value="'.$current.'">'; |
$Str .= '<td align="center"><b>Report:</b></td>'."\n"; |
# $Str .= '<table border="0"><tbody><tr>'."\n"; |
$Str .= '<td align="center">'; |
# $Str .= '<td align="center"><b>Report:</b></td>'."\n"; |
$Str .= '<select name="reportSelected" '. |
# $Str .= '<td align="center">'; |
'onchange="document.Statistics.submit()">'."\n"; |
# $Str .= '<select name="reportSelected" '. |
foreach (sort(keys(%$reports))) { |
# 'onchange="document.Statistics.submit()">'."\n"; |
$Str .= '<option value="'.$_.'"'; |
# foreach (sort(keys(%$reports))) { |
if($current eq $_) { |
# $Str .= '<option value="'.$_.'"'; |
$Str .= ' selected'; |
# if($current eq $_) { |
} |
# $Str .= ' selected'; |
$Str .= '>'.$reports->{$_}.'</option>'."\n"; |
# } |
} |
# $Str .= '>'.$reports->{$_}.'</option>'."\n"; |
$Str .= '</select></td>'."\n"; |
# } |
# |
# $Str .= '</select></td>'."\n"; |
$Str .= '<td>'.(' 'x30).'</td>'; |
# # |
$Str .= '<td align="center">'. |
# $Str .= '<td>'.(' 'x30).'</td>'; |
'<input type="submit" name="ClearCache" value="Clear Caches" />'. |
# $Str .= '<td align="center">'. |
"</td>\n"; |
# '<input type="submit" name="ClearCache" value="Clear Caches" />'. |
$Str .= '</tr></tbody></table>'."\n"; |
# "</td>\n"; |
$Str .= '<hr>'."\n"; |
# $Str .= '</tr></tbody></table>'."\n"; |
|
# $Str .= '<hr>'."\n"; |
# |
# |
return $Str; |
return $Str; |
} |
} |
Line 987 END
|
Line 988 END
|
&Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c); |
&Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c); |
} elsif($GoToPage eq 'DoDiffGraph' || $GoToPage eq 'PercentWrongGraph') { |
} elsif($GoToPage eq 'DoDiffGraph' || $GoToPage eq 'PercentWrongGraph') { |
# &Apache::lonproblemstatistics::BuildGraphicChart($r,$c); |
# &Apache::lonproblemstatistics::BuildGraphicChart($r,$c); |
} elsif($GoToPage eq 'classlist') { |
|
&DisplayClasslist($r); |
|
} elsif($GoToPage eq 'Correct-problems Plot') { |
} elsif($GoToPage eq 'Correct-problems Plot') { |
# &Apache::lonpercentage::BuildPercentageGraph($r,$c); |
# &Apache::lonpercentage::BuildPercentageGraph($r,$c); |
} |
} |