[LON-CAPA-cvs] cvs: loncom /publisher testbankimport.pm
raeburn
lon-capa-cvs@mail.lon-capa.org
Wed, 18 Feb 2004 21:50:00 -0000
raeburn Wed Feb 18 16:50:00 2004 EDT
Modified files:
/loncom/publisher testbankimport.pm
Log:
Corrected method for setting tolerance for numerical response built from fill-in-blank.
Index: loncom/publisher/testbankimport.pm
diff -u loncom/publisher/testbankimport.pm:1.1 loncom/publisher/testbankimport.pm:1.2
--- loncom/publisher/testbankimport.pm:1.1 Tue Feb 17 18:03:34 2004
+++ loncom/publisher/testbankimport.pm Wed Feb 18 16:50:00 2004
@@ -1521,12 +1521,12 @@
$tol = 5;
$numans = $$answerref[0];
} else {
- my $min = 0;
- my $max = 0;
- for (my $i=0; $i<@{$answerref}; $i++) {
- if ($$answerref[$i]<$min) {
+ my $min = $$answerref[0];
+ my $max = $$answerref[0];
+ for (my $i=1; $i<@{$answerref}; $i++) {
+ if ($$answerref[$i]<=$min) {
$min = $$answerref[$i];
- } elsif ($$answerref[$i] > $max) {
+ } elsif ($$answerref[$i] >= $max) {
$max = $$answerref[$i];
}
}