version 1.230, 2011/12/15 01:21:28
|
version 1.232, 2012/12/18 18:26:41
|
Line 1135 sub scored_response {
|
Line 1135 sub scored_response {
|
sub whichorder { |
sub whichorder { |
my ($max,$randomize,$showall,$hash,$rndseed)=@_; |
my ($max,$randomize,$showall,$hash,$rndseed)=@_; |
#&Apache::lonxml::debug("man $max randomize $randomize"); |
#&Apache::lonxml::debug("man $max randomize $randomize"); |
if (!defined(@{ $$hash{'names'} })) { return; } |
my @names; |
my @names = @{ $$hash{'names'} }; |
if (ref($hash->{'names'}) eq 'ARRAY') { |
|
@names = @{$hash->{'names'}}; |
|
} |
|
return if (!@names); |
my @whichopt =(); |
my @whichopt =(); |
my (%top,@toplist,%bottom,@bottomlist); |
my (%top,@toplist,%bottom,@bottomlist); |
if (!($showall || ($randomize eq 'no'))) { |
if (!($showall || ($randomize eq 'no'))) { |
Line 1223 sub check_if_computed {
|
Line 1226 sub check_if_computed {
|
|
|
sub pick_foil_for_concept { |
sub pick_foil_for_concept { |
my ($target,$attrs,$hinthash,$parstack,$safeeval)=@_; |
my ($target,$attrs,$hinthash,$parstack,$safeeval)=@_; |
if (not defined(@{ $Apache::response::conceptgroup{'names'} })) { return; } |
my @names; |
my @names = @{ $Apache::response::conceptgroup{'names'} }; |
if (ref($Apache::response::conceptgroup{'names'}) eq 'ARRAY') { |
|
@names = @{ $Apache::response::conceptgroup{'names'} }; |
|
} |
|
return if (!@names); |
my $pick=int(&Math::Random::random_uniform() * ($#names+1)); |
my $pick=int(&Math::Random::random_uniform() * ($#names+1)); |
my $name=$names[$pick]; |
my $name=$names[$pick]; |
push @{ $Apache::response::foilgroup{'names'} }, $name; |
push @{ $Apache::response::foilgroup{'names'} }, $name; |