loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

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

version 1.105, 2005/08/26 21:53:23	version 1.106, 2006/02/05 19:10:28
Line 1630 sub compute_discrimination_factor {	Line 1630 sub compute_discrimination_factor {
(\@Resources,	(\@Resources,
[&Apache::lonstatistics::get_selected_sections()],	[&Apache::lonstatistics::get_selected_sections()],
$Apache::lonstatistics::enrollment_status,undef,	$Apache::lonstatistics::enrollment_status,undef,
$starttime,$endtime);	$starttime,$endtime, $symb);
#	#
# compute their percent scores on the problems in the sequence,	# compute their percent scores on the problems in the sequence,
my $number_to_grab = int(scalar(@{$ranking})/4);	my $number_to_grab = int(scalar(@{$ranking})/4);
Line 1640 sub compute_discrimination_factor {	Line 1640 sub compute_discrimination_factor {
my @TopSet =	my @TopSet =
map {	map {
$_->[&Apache::loncoursedata::RNK_student()];	$_->[&Apache::loncoursedata::RNK_student()];
} @{$ranking}[($num_students-$number_to_grab)..($num_students-1)];	} @{$ranking}[-$number_to_grab..0];
if (! @BottomSet \|\| (@BottomSet == 1 && $BottomSet[0] eq '') \|\|	if (! @BottomSet \|\| (@BottomSet == 1 && $BottomSet[0] eq '') \|\|
! @TopSet \|\| (@TopSet == 1 && $TopSet[0] eq '')) {	! @TopSet \|\| (@TopSet == 1 && $TopSet[0] eq '')) {
return 'nan';	return 'nan';