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

[matthew]

matthew		Fri Nov 12 14:47:30 2004 EDT

  Modified files:              
    /loncom/interface/statistics	lonproblemanalysis.pm 
  Log:
  Modified option response analysis to label every column in the graphs by
  passing xskip=1 to &Apache::loncommon::DrawBarGraph
  
  
Index: loncom/interface/statistics/lonproblemanalysis.pm
diff -u loncom/interface/statistics/lonproblemanalysis.pm:1.104 loncom/interface/statistics/lonproblemanalysis.pm:1.105
--- loncom/interface/statistics/lonproblemanalysis.pm:1.104	Wed Nov 10 16:23:10 2004
+++ loncom/interface/statistics/lonproblemanalysis.pm	Fri Nov 12 14:47:29 2004
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonproblemanalysis.pm,v 1.104 2004/11/10 21:23:10 matthew Exp $
+# $Id: lonproblemanalysis.pm,v 1.105 2004/11/12 19:47:29 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1258,7 +1258,7 @@
             #
             $concept_graph = &Apache::loncommon::DrawBarGraph
                 ('Correct Concepts','Concept Number','Percent Correct',
-                 100,$plotcolors,undef,\@concept_plot_data);
+                 100,$plotcolors,undef,\@concept_plot_data,{xskip=>1});
         }
         #
         # Create Foil Plots
@@ -1296,7 +1296,7 @@
         #
         my $correct_graph = &Apache::loncommon::DrawBarGraph
             ('Correct Statements','Statement','% Answered Correct',
-             100,$plotcolors,\@Labels,$Datasets[0]);
+             100,$plotcolors,\@Labels,$Datasets[0],{xskip=>1});
         
         #
         #
@@ -1308,7 +1308,7 @@
                                            $response_data{'_correct'}->[$try];
         my $incorrect_graph = &Apache::loncommon::DrawBarGraph
             ('Incorrect Statements','Statement','% Chosen Incorrectly',
-             100,$plotcolors,\@Labels,@Datasets);
+             100,$plotcolors,\@Labels,@Datasets,{xskip=>1});
         $analysis_html.= 
             '<tr><td colspan="4" align="center">'.
             '<font size="+1">'.
@@ -1502,7 +1502,8 @@
                                                         100,
                                                         $plotcolors,
                                                         undef,
-                                                        $plotdata[0]);
+                                                        $plotdata[0],
+                                                        {xskip=>1});
     for (my $j=0; $j< scalar(@{$plotdata[0]});$j++) {
         $plotdata[0]->[$j]=0;
     }
@@ -1513,7 +1514,7 @@
                                          100,
                                          $plotcolors,
                                          undef,
-                                         @plotdata);
+                                         @plotdata,{xskip=>1});
     return ($correct_plot,$incorrect_plot);
 }
 
@@ -1544,7 +1545,7 @@
                                             100,
                                             $plotcolors,
                                             undef,
-                                            \@plotdata);
+                                            \@plotdata,{xskip=>1});
 }
 
 sub OR_time_process_data {