[LON-CAPA-cvs] cvs: loncom /interface/statistics lonproblemanalysis.pm
minaeibi
lon-capa-cvs@mail.lon-capa.org
Fri, 22 Nov 2002 03:56:05 -0000
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;