--- loncom/interface/statistics/lonproblemanalysis.pm	2004/10/29 16:13:45	1.100
+++ loncom/interface/statistics/lonproblemanalysis.pm	2004/10/29 16:39:42	1.101
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonproblemanalysis.pm,v 1.100 2004/10/29 16:13:45 matthew Exp $
+# $Id: lonproblemanalysis.pm,v 1.101 2004/10/29 16:39:42 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -635,13 +635,13 @@ sub RR_create_percent_selected_plot {
     my %correct_selections;
     my %incorrect_selections;
     foreach my $foil (@$foils) {
-        # foil_data has format $foil_data->{true_foil}->{selected foil}
+        # foil_data has format $foil_data->{true_foil}->{selected foil}=count
         next if (! exists($foil_data->{$foil}));
         while (my ($f,$count)= each(%{$foil_data->{$foil}})) {
             if ($f eq $foil) {
                 $correct_selections{$foil} += $count;
             } else {
-                $incorrect_selections{$foil} += $count;
+                $incorrect_selections{$f} += $count;
             }
         }
     }