loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonstatistics.pm between versions 1.75 and 1.76

version 1.75, 2003/06/10 18:22:17	version 1.76, 2003/06/10 19:19:57
Line 805 sub DisplayClasslist {	Line 805 sub DisplayClasslist {
my @Fields = ('fullname','username','domain','id','section');	my @Fields = ('fullname','username','domain','id','section');
#	#
my $Str='';	my $Str='';
	# "Click" is asinine but it is probably not my place to change the world.
	$Str .= '<h2>Click on a users name to view their chart</h2>';
$Str .= '<table border="0"><tr><td bgcolor="#777777">'."\n";	$Str .= '<table border="0"><tr><td bgcolor="#777777">'."\n";
$Str .= '<table border="0" cellpadding="3"><tr bgcolor="#e6ffff">'."\n";	$Str .= '<table border="0" cellpadding="3"><tr bgcolor="#e6ffff">'."\n";
foreach my $field (@Fields) {	foreach my $field (@Fields) {
Line 856 sub CreateMainMenu {	Line 858 sub CreateMainMenu {
my $Str = '';	my $Str = '';
#	#
$Str .= '<table border="0"><tbody><tr>'."\n";	$Str .= '<table border="0"><tbody><tr>'."\n";
$Str .= '<td></td>'."\n";	$Str .= '<td align="center"><b>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 .= '<td align="center">'.
'<input type="submit" name="Refresh" value="Update Display" />'.
"</td>\n";
#
$Str .= '<td align="center">';	$Str .= '<td align="center">';
$Str .= '<select name="reportSelected" >'."\n";	$Str .= '<select name="reportSelected" '.
	'onchange="document.Statistics.submit()">'."\n";
foreach (sort(keys(%$reports))) {	foreach (sort(keys(%$reports))) {
$Str .= '<option value="'.$_.'"';	$Str .= '<option value="'.$_.'"';
if($current eq $_) {	if($current eq $_) {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.75
changed lines
	Added in v.1.76