loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.107, 2004/06/24 19:36:16	version 1.110, 2004/09/22 15:39:14
Line 229 sub PrepareClasslist {	Line 229 sub PrepareClasslist {
}	}
#	#
# Set up %StudentData	# Set up %StudentData
@StudentDataOrder = qw/fullname username domain id section status/;	@StudentDataOrder = qw/fullname username domain id section status comments/;
foreach my $field (@StudentDataOrder) {	foreach my $field (@StudentDataOrder) {
$StudentData{$field}->{'title'} = $field;	$StudentData{$field}->{'title'} = &mt($field);
$StudentData{$field}->{'base_width'} = length($field);	$StudentData{$field}->{'base_width'} = length(&mt($field));
$StudentData{$field}->{'width'} =	$StudentData{$field}->{'width'} =
$StudentData{$field}->{'base_width'};	$StudentData{$field}->{'base_width'};
}	}
Line 1155 sub handler {	Line 1155 sub handler {
'SelectedStudent']);	'SelectedStudent']);
#	#
# Give the LON-CAPA page header	# Give the LON-CAPA page header
	my $style = <<ENDSTYLE;
	<style type="text/css">
	ul.sub_studentans { list-style-type: none }
	ul.sub_correctans { list-style-type: none }
	tr.even { background-color: \#CCCCCC }
	td.essay { border: 1px solid gray; }
	</style>
	ENDSTYLE
$r->print('<html><head><title>'.	$r->print('<html><head><title>'.
&mt('Course Statistics and Charts').	&mt('Course Statistics and Charts').
"</title></head>\n".	'</title>'.$style.
	"</head>\n".
&Apache::loncommon::bodytag('Course Statistics and Charts'));	&Apache::loncommon::bodytag('Course Statistics and Charts'));
$r->rflush();	$r->rflush();
#	#