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

[matthew]

matthew		Thu Mar 11 15:11:18 2004 EDT

  Modified files:              
    /loncom/interface/statistics	lonproblemanalysis.pm 
  Log:
  OR_Tries_Foil_Analysis: Changed plot titles to 'Submission X (N=Y)' where
  X is the attempt number and Y is the number of students.
  
  
Index: loncom/interface/statistics/lonproblemanalysis.pm
diff -u loncom/interface/statistics/lonproblemanalysis.pm:1.76 loncom/interface/statistics/lonproblemanalysis.pm:1.77
--- loncom/interface/statistics/lonproblemanalysis.pm:1.76	Thu Mar 11 15:06:50 2004
+++ loncom/interface/statistics/lonproblemanalysis.pm	Thu Mar 11 15:11:18 2004
@@ -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 @@
     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 @@
         }
         $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);