loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);