loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.72, 2003/05/29 21:38:32	version 1.73, 2003/05/29 21:44:53
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";
#	#