loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.91, 2004/07/22 15:56:41	version 1.93, 2004/08/04 15:07:42
Line 238 my @Fields = (	Line 238 my @Fields = (
format => '%4.1f',	format => '%4.1f',
sortable => 'yes',	sortable => 'yes',
graphable => 'yes',	graphable => 'yes',
	long_title => 'Number of students whose final answer is wrong',
	selectable => 'yes',
	defaultselected => 'yes',
	},
	{ name => 'per_wrong',
	title => '%Wrng',
	align => 'right',
	color => '#FFDDDD',
	format => '%4.1f',
	sortable => 'yes',
	graphable => 'yes',
long_title => 'Percent of students whose final answer is wrong',	long_title => 'Percent of students whose final answer is wrong',
selectable => 'yes',	selectable => 'yes',
defaultselected => 'yes',	defaultselected => 'yes',
Line 819 sub statistics_html_table_data {	Line 830 sub statistics_html_table_data {
if (exists($field->{'special'}) && $field->{'special'} eq 'link') {	if (exists($field->{'special'}) && $field->{'special'} eq 'link') {
$row .= '<a href="'.$data->{$field->{'name'}.'.link'}.'">';	$row .= '<a href="'.$data->{$field->{'name'}.'.link'}.'">';
}	}
if (exists($field->{'format'})) {	if (exists($field->{'format'}) && $data->{$field->{'name'}} !~ /[A-Z]/i) {
$row .= sprintf($field->{'format'},$data->{$field->{'name'}});	$row .= sprintf($field->{'format'},$data->{$field->{'name'}});
} else {	} else {
$row .= $data->{$field->{'name'}};	$row .= $data->{$field->{'name'}};