version 1.89, 2004/06/16 16:22:52
|
version 1.91, 2004/07/22 15:56:41
|
Line 704 sub BuildProblemStatisticsPage {
|
Line 704 sub BuildProblemStatisticsPage {
|
sub output_sequence_statistics { |
sub output_sequence_statistics { |
my ($r) = @_; |
my ($r) = @_; |
my $c=$r->connection(); |
my $c=$r->connection(); |
$r->print('<h2>'.&mt('Sequence Statistics').'</h2>'); |
$r->print('<h2>'.&mt('Sequence Statistics'). |
|
&Apache::loncommon::help_open_topic('Statistics_Sequence'). |
|
'</h2>'); |
$r->print('<table border="0"><tr><td bgcolor="#777777">'."\n". |
$r->print('<table border="0"><tr><td bgcolor="#777777">'."\n". |
'<table border="0" cellpadding="3">'."\n". |
'<table border="0" cellpadding="3">'."\n". |
'<tr bgcolor="#FFFFE6">'); |
'<tr bgcolor="#FFFFE6">'); |
Line 1579 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); |