loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

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

version 1.71, 2004/03/23 16:35:15	version 1.72, 2004/03/23 20:08:58
Line 882 Returns: integer between -1 and 1	Line 882 Returns: integer between -1 and 1
###############################################	###############################################
sub compute_discrimination_factor {	sub compute_discrimination_factor {
my ($resource,$part,$sequence) = @_;	my ($resource,$part,$sequence) = @_;
&Apache::lonnet::logthis($sequence->{'title'}.' '.$resource->{'title'});
my @Resources;	my @Resources;
foreach my $res (@{$sequence->{'contents'}}) {	foreach my $res (@{$sequence->{'contents'}}) {
next if ($res->{'symb'} eq $resource->{'symb'});	next if ($res->{'symb'} eq $resource->{'symb'});