version 1.126, 2014/02/28 19:20:17
|
version 1.127, 2017/12/18 23:51:19
|
Line 759 sub BuildProblemStatisticsPage {
|
Line 759 sub BuildProblemStatisticsPage {
|
&Apache::lonstatistics::section_and_enrollment_description(). |
&Apache::lonstatistics::section_and_enrollment_description(). |
'</p>'); |
'</p>'); |
my $count = 0; |
my $count = 0; |
|
my $include_tools = 1; |
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
my @resources = |
my @resources = |
&Apache::lonstathelpers::get_resources($navmap,$seq); |
&Apache::lonstathelpers::get_resources($navmap,$seq,$include_tools); |
$count += scalar(@resources); |
$count += scalar(@resources); |
} |
} |
if ($count > 10) { |
if ($count > 10) { |
Line 1469 sub write_headers {
|
Line 1470 sub write_headers {
|
################################################## |
################################################## |
sub compute_statistics_on_sequence { |
sub compute_statistics_on_sequence { |
my ($seq) = @_; |
my ($seq) = @_; |
|
my $include_tools = 1; |
my @Data; |
my @Data; |
foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq)) { |
foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq,$include_tools)) { |
foreach my $part (@{$res->parts}) { |
foreach my $part (@{$res->parts}) { |
next if (($res->is_survey($part)) || ($res->is_anonsurvey($part))) ; |
next if (($res->is_survey($part)) || ($res->is_anonsurvey($part))) ; |
# |
# |
Line 1648 Returns: integer between -1 and 1
|
Line 1650 Returns: integer between -1 and 1
|
############################################### |
############################################### |
sub compute_discrimination_factor { |
sub compute_discrimination_factor { |
my ($resource,$part,$seq) = @_; |
my ($resource,$part,$seq) = @_; |
|
my $include_tools = 1; |
my $symb = $resource->symb; |
my $symb = $resource->symb; |
my @Resources; |
my @Resources; |
foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq)){ |
foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq,$include_tools)){ |
next if ($res->symb eq $symb); |
next if ($res->symb eq $symb); |
push (@Resources,$res->symb); |
push (@Resources,$res->symb); |
} |
} |
Line 1714 sub compute_discrimination_factor {
|
Line 1717 sub compute_discrimination_factor {
|
############################################### |
############################################### |
sub compute_sequence_statistics { |
sub compute_sequence_statistics { |
my ($seq) = @_; |
my ($seq) = @_; |
|
my $include_tools = 1; |
my $symb = $seq->symb; |
my $symb = $seq->symb; |
my @Resources; |
my @Resources; |
my $part_count; |
my $part_count; |
foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq)) { |
foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq,$include_tools)) { |
push (@Resources,$res->symb); |
push (@Resources,$res->symb); |
$part_count += scalar(@{$res->parts}); |
$part_count += scalar(@{$res->parts}); |
} |
} |