--- loncom/interface/statistics/lonproblemanalysis.pm	2004/01/19 16:33:16	1.57
+++ loncom/interface/statistics/lonproblemanalysis.pm	2004/01/19 20:10:36	1.59
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonproblemanalysis.pm,v 1.57 2004/01/19 16:33:16 matthew Exp $
+# $Id: lonproblemanalysis.pm,v 1.59 2004/01/19 20:10:36 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -898,16 +898,16 @@ sub OR_excel_sheet {
     }
     #
     my $result;
-    $result = &build_problem_data_worksheet($problem_data_sheet,$format,
+    $result = &OR_build_problem_data_worksheet($problem_data_sheet,$format,
                                             $Concepts,$ORdata);
     if ($result ne 'okay') {
         # Do something useful
     }
-    $result = &build_student_data_worksheet($student_data_sheet,$format);
+    $result = &OR_build_student_data_worksheet($student_data_sheet,$format);
     if ($result ne 'okay') {
         # Do something useful
     }
-    $result = &build_response_data_worksheet($response_data_sheet,$format,
+    $result = &OR_build_response_data_worksheet($response_data_sheet,$format,
                                              $PerformanceData,$Foils,
                                              $ORdata);
     if ($result ne 'okay') {
@@ -1251,8 +1251,6 @@ sub build_foil_index {
     my @Foils = sort(keys(%Foildata));
     my %Concepts;
     foreach my $foilid (@Foils) {
-        &Apache::lonnet::logthis('foilid = '.$foilid);
-        &Apache::lonnet::logthis('_Concept = '.$Foildata{$foilid}->{'_Concept'});
         push(@{$Concepts{$Foildata{$foilid}->{'_Concept'}}},
              $foilid);
     }
@@ -1289,7 +1287,6 @@ sub build_foil_index {
     foreach my $concept (sort $sortfunction (keys(%Concepts))) {
         if (! defined($Concepts{$concept})) {
             $Concepts{$concept}=[];
-            &Apache::lonnet::logthis('concept error: '.$concept.' does not have a value');
 #            next;
         }
         push(@Concepts,{ name => $concept,
@@ -1720,6 +1717,7 @@ sub Process_OR_Row {
     my @Foilsubs   = split('&',$submission);
     for (my $j=0;$j<=$#Foilgrades;$j++) {
         my ($foilid,$correct)  = split('=',$Foilgrades[$j]);
+        $foilid = &Apache::lonnet::unescape($foilid);
         my (undef,$submission) = split('=',$Foilsubs[$j]);
         if ($correct) {
             $RowData{$foilid}->{'_correct'}++;