[LON-CAPA-cvs] cvs: loncom /interface/statistics lonproblemanalysis.pm

[matthew]

matthew		Thu Dec 23 14:57:36 2004 EDT

  Modified files:              
    /loncom/interface/statistics	lonproblemanalysis.pm 
  Log:
  re-enable numerical response analysis with units.
  
  
Index: loncom/interface/statistics/lonproblemanalysis.pm
diff -u loncom/interface/statistics/lonproblemanalysis.pm:1.108 loncom/interface/statistics/lonproblemanalysis.pm:1.109
--- loncom/interface/statistics/lonproblemanalysis.pm:1.108	Mon Dec  6 11:22:21 2004
+++ loncom/interface/statistics/lonproblemanalysis.pm	Thu Dec 23 14:57:35 2004
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonproblemanalysis.pm,v 1.108 2004/12/06 16:22:21 matthew Exp $
+# $Id: lonproblemanalysis.pm,v 1.109 2004/12/23 19:57:35 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -456,19 +456,14 @@
             my ($sname,$sdom) = split(':',$subm{'student'});
             # Note that $subm{'unit'} is modified by the following call
             # We do not use it again but you should be aware just in case.
-#            my ($myunit,$mysub) = ($subm{'unit'},$subm{'submission'});
-#            $myunit = 'm';
-#            # &Apache::lonnet::logthis($myunit);
-#            my $result = 
-#                &capa::caparesponse_get_real_response($myunit,
-#                                                      $mysub,
-#                                                      \$scaled);
-#            # &Apache::lonnet::logthis('  '.$myunit.':'.$subm{'unit'}.
-#            #  ' '.$mysub.':'.$subm{'submission'}.'; '.$result);
-#            next if (! defined($scaled));
-#            next if ($result ne '6');
-#            my $submission = $scaled;
-            my $submission = $subm{'submission'};
+            my ($myunit,$mysub) = ($subm{'unit'},$subm{'submission'});
+            my $result = 
+                &capa::caparesponse_get_real_response($myunit,
+                                                      $mysub,
+                                                      \$scaled);
+            next if (! defined($scaled));
+            next if ($result ne '6');
+            my $submission = $scaled;
             $students{$subm{'student'}}++;
             if (&numerical_submission_is_correct($subm{'award'})) { 
                 &Apache::lonnet::logthis('correct:'.$submission.':'.$subm{'correct'});