--- loncom/interface/statistics/lonproblemanalysis.pm	2004/03/11 20:06:50	1.76
+++ loncom/interface/statistics/lonproblemanalysis.pm	2004/03/11 20:11:18	1.77
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonproblemanalysis.pm,v 1.76 2004/03/11 20:06:50 matthew Exp $
+# $Id: lonproblemanalysis.pm,v 1.77 2004/03/11 20:11:18 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -607,14 +607,7 @@ sub OR_Tries_Foil_Analysis {
     my $optionkey = &build_option_index($ORdata);
     for (my $try=$mintries;$try<=$maxtries;$try++) {
         my $count = $ResponseData{'_total'}->[$try];
-        if ($count == 0) {
-            $count = 'no submissions';
-        } elsif ($count == 1) {
-            $count = '1 submission';
-        } else {
-            $count = $count.' submissions';
-        }
-        my $title = 'Attempt '.$try.', '.$count;
+        my $title = 'Submission '.$try.' (N='.$count.')';
         my @Datasets;
         foreach my $option ('_correct',@{$ORdata->{'_Options'}}) {
             next if (! exists($PlotData[$try]->{$option}));
@@ -658,14 +651,7 @@ sub OR_Tries_Foil_Analysis {
         }
         $count = $ResponseData{'_total'}->[$try] - 
                                            $ResponseData{'_correct'}->[$try];
-        if ($count == 0) {
-            $count = 'no submissions';
-        } elsif ($count == 1) {
-            $count = '1 submission';
-        } else {
-            $count = $count.' submissions';
-        }
-        $title = 'Attempt '.$try.', '.$count;
+        $title = 'Submission '.$try.' (N='.$count.')';
         my $incorrectgraph = &Apache::loncommon::DrawBarGraph
             ($title,'Foil Number','% Option Chosen Incorrectly',
              100,$plotcolors,\@Labels,@Datasets);