|
version 1.1, 2004/02/17 23:03:34
|
version 1.2, 2004/02/18 21:50:00
|
|
Line 1521 sub create_mcq {
|
Line 1521 sub create_mcq {
|
| $tol = 5; |
$tol = 5; |
| $numans = $$answerref[0]; |
$numans = $$answerref[0]; |
| } else { |
} else { |
| my $min = 0; |
my $min = $$answerref[0]; |
| my $max = 0; |
my $max = $$answerref[0]; |
| for (my $i=0; $i<@{$answerref}; $i++) { |
for (my $i=1; $i<@{$answerref}; $i++) { |
| if ($$answerref[$i]<$min) { |
if ($$answerref[$i]<=$min) { |
| $min = $$answerref[$i]; |
$min = $$answerref[$i]; |
| } elsif ($$answerref[$i] > $max) { |
} elsif ($$answerref[$i] >= $max) { |
| $max = $$answerref[$i]; |
$max = $$answerref[$i]; |
| } |
} |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to testbankimport.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher