version 1.66, 2003/04/18 15:50:55
|
version 1.67, 2003/04/21 15:12:37
|
Line 832 sub CreateMainMenu {
|
Line 832 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 align="center"><b>Student Status</b></td></tr>'."\n"; |
$Str .= '<td align="center"><b>Student Status</b></td></tr>'."\n"; |
$Str .= '<tr>'."\n"; |
$Str .= '<tr>'."\n"; |
# |
# |
$Str .= '<td align="center"><input type="submit" name="Refresh" '; |
$Str .= '<td align="center">'. |
$Str .= 'value="Update Display" /></td>'."\n"; |
'<input type="submit" name="Refresh" value="Update Display" />'. |
|
"</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 925 END
|
Line 930 END
|
return; |
return; |
} |
} |
# |
# |
|
# Clean out the caches |
|
if (exists($ENV{'form.ClearCache'})) { |
|
&Apache::loncoursedata::delete_caches($ENV{'requres.course.id'}); |
|
} |
|
# |
# Set up the statistics and chart environment |
# Set up the statistics and chart environment |
&PrepareClasslist($r); |
&PrepareClasslist($r); |
&PrepareCourseData($r); |
&PrepareCourseData($r); |