loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.206, 2007/05/02 01:33:49	version 1.207, 2007/05/12 23:04:07
Line 1026 sub print_dynamic_metadata {	Line 1026 sub print_dynamic_metadata {
#	#
# New assessment statistics	# New assessment statistics
$r->print('<h4>'.	$r->print('<h4>'.
&mt('Detailed Assessment Statistical Data').	&mt('Recent Detailed Assessment Statistical Data').
'</h4>');	'</h4>');
my $table = '<table cellspacing="2" border="0">'.	my $table = '<table cellspacing="2" border="0">'.
'<tr>'.	'<tr>'.
'<th>Course</th>'.	'<th>'.&mt('Course').'</th>'.
'<th>Section(s)</th>'.	'<th>'.&mt('Section(s)').'</th>'.
'<th>Num Students</th>'.	'<th>'.&mt('Num Student').'s</th>'.
'<th>Mean Tries</th>'.	'<th>'.&mt('Mean Tries').'</th>'.
'<th>Degree of Difficulty</th>'.	'<th>'.&mt('Degree of Difficulty').'</th>'.
'<th>Degree of Discrimination</th>'.	'<th>'.&mt('Degree of Discrimination').'</th>'.
'<th>Time of computation</th>'.	'<th>'.&mt('Time of computation').'</th>'.
'</tr>'.$/;	'</tr>'.$/;
foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) {	foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) {
my $data = $dynmeta{'stats'}->{$identifier};	my $data = $dynmeta{'stats'}->{$identifier};