loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

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

version 1.90, 2004/07/12 19:30:12	version 1.92, 2004/07/22 17:33:29
Line 819 sub statistics_html_table_data {	Line 819 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'}};
Line 1581 sub compute_discrimination_factor {	Line 1581 sub compute_discrimination_factor {
map {	map {
$_->[&Apache::loncoursedata::RNK_student()];	$_->[&Apache::loncoursedata::RNK_student()];
} @{$ranking}[($num_students-$number_to_grab)..($num_students-1)];	} @{$ranking}[($num_students-$number_to_grab)..($num_students-1)];
	if (! @BottomSet \|\| (@BottomSet == 1 && $BottomSet[0] eq '') \|\|
	! @TopSet \|\| (@TopSet == 1 && $TopSet[0] eq '')) {
	return 'nan';
	}
my ($bottom_sum,$bottom_max) =	my ($bottom_sum,$bottom_max) =
&Apache::loncoursedata::get_sum_of_scores($resource,$part,\@BottomSet,	&Apache::loncoursedata::get_sum_of_scores($resource,$part,\@BottomSet,
undef,$starttime,$endtime);	undef,$starttime,$endtime);