version 1.72, 2003/05/29 21:38:32
|
version 1.74, 2003/06/03 18:10:33
|
Line 859 sub CreateMainMenu {
|
Line 859 sub CreateMainMenu {
|
# |
# |
$Str .= '<table border="0"><tbody><tr>'."\n"; |
$Str .= '<table border="0"><tbody><tr>'."\n"; |
$Str .= '<td></td>'."\n"; |
$Str .= '<td></td>'."\n"; |
$Str .= '<td></td>'."\n"; |
|
$Str .= '<td align="center"><b>Select a Report</b></td>'."\n"; |
$Str .= '<td align="center"><b>Select a Report</b></td>'."\n"; |
|
$Str .= '<td></td>'."\n"; |
|
$Str .= '<td></td>'."\n"; |
$Str .= '<tr>'."\n"; |
$Str .= '<tr>'."\n"; |
# |
# |
$Str .= '<td align="center">'. |
$Str .= '<td align="center">'. |
'<input type="submit" name="Refresh" value="Update Display" />'. |
'<input type="submit" name="Refresh" value="Update Display" />'. |
"</td>\n"; |
"</td>\n"; |
$Str .= '<td align="center">'. |
|
'<input type="submit" name="ClearCache" value="Clear Caches" />'. |
|
"</td>\n"; |
|
# |
# |
$Str .= '<td align="center">'; |
$Str .= '<td align="center">'; |
$Str .= '<select name="reportSelected" >'."\n"; |
$Str .= '<select name="reportSelected" >'."\n"; |
Line 881 sub CreateMainMenu {
|
Line 879 sub CreateMainMenu {
|
} |
} |
$Str .= '</select></td>'."\n"; |
$Str .= '</select></td>'."\n"; |
# |
# |
|
$Str .= '<td>'.(' 'x30).'</td>'; |
|
$Str .= '<td align="center">'. |
|
'<input type="submit" name="ClearCache" value="Clear Caches" />'. |
|
"</td>\n"; |
$Str .= '</tr></tbody></table>'."\n"; |
$Str .= '</tr></tbody></table>'."\n"; |
$Str .= '<hr>'."\n"; |
$Str .= '<hr>'."\n"; |
# |
# |
Line 974 END
|
Line 976 END
|
my %reports = ('classlist' => 'Class list', |
my %reports = ('classlist' => 'Class list', |
'problem_statistics' => 'Problem Statistics', |
'problem_statistics' => 'Problem Statistics', |
'student_assessment' => 'Problem Status Chart', |
'student_assessment' => 'Problem Status Chart', |
'percentage' => 'Correct-problems Plot', |
# 'percentage' => 'Correct-problems Plot', |
'option_response' => 'Option Response Analysis', |
# 'option_response' => 'Option Response Analysis', |
# 'activitylog' => 'Activity Log', |
# 'activitylog' => 'Activity Log', |
); |
); |
$r->print(&CreateMainMenu($ENV{'form.status'}, |
$r->print(&CreateMainMenu($ENV{'form.status'}, |