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

[minaeibi]

minaeibi		Thu Nov 21 22:56:05 2002 EDT

  Modified files:              
    /loncom/interface/statistics	lonproblemanalysis.pm 
  Log:
  continue to fix bug #939
  
  
Index: loncom/interface/statistics/lonproblemanalysis.pm
diff -u loncom/interface/statistics/lonproblemanalysis.pm:1.11 loncom/interface/statistics/lonproblemanalysis.pm:1.12
--- loncom/interface/statistics/lonproblemanalysis.pm:1.11	Thu Nov 21 22:46:57 2002
+++ loncom/interface/statistics/lonproblemanalysis.pm	Thu Nov 21 22:56:05 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonproblemanalysis.pm,v 1.11 2002/11/22 03:46:57 minaeibi Exp $
+# $Id: lonproblemanalysis.pm,v 1.12 2002/11/22 03:56:05 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -348,7 +348,7 @@
 
     foreach my $id (@$ids) {
 	my ($part, $response) = split(/\./, $id);
-=pod
+#=pod
     my %reshash=&Apache::lonnet::restore($symb,$courseID,$udom,$uname);
     if ($reshash{'version'}) {
         my $tries=0;
@@ -370,19 +370,20 @@
 		    my %submission=&Apache::lonnet::str2hash($Resp);
 		    foreach (keys %submission) {
 			my $Ansr = $analyzeData->{"$Id1.$Id2.foil.value.$_"};
-			if ($submission{$_}) {
-			    if ($submission{$_} eq $Ansr) {
-				&Decide("true",$_,$time );
-			    }
-			    else {&Decide("false",$_,$time );}
-			}
+                    	if($submission{$_} eq $Ansr) {
+                        	&Decide("true", $foil_to_concept->{$_},
+                                	$time, $ConceptData);
+                    	} else {
+                        	&Decide("false", $foil_to_concept->{$_},
+					$time, $ConceptData);
+                    	}
 		    }
 	        }
 	    }
         }
     }
-=cut
-
+#=cut
+=pod
         my $time=$cache->{$student.':'.$problemID.':'.$part.':timestamp'};
 	my @submissions = split(':::', $cache->{$student.':'.$problemID.':'.
                                                $part.':'.$response.
@@ -402,8 +403,7 @@
                 }
             }
         }
-
-
+=cut
     }
 
     return;