[LON-CAPA-cvs] cvs: loncom /publisher testbankimport.pm

[raeburn]

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];
                     }
                 }