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'}); |