--- loncom/interface/statistics/lonproblemanalysis.pm	2004/11/10 21:23:10	1.104
+++ loncom/interface/statistics/lonproblemanalysis.pm	2004/11/12 19:47:29	1.105
@@ -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 @@ sub OR_tries_analysis {
             #
             $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 @@ sub OR_tries_analysis {
         #
         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 @@ sub OR_tries_analysis {
                                            $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 @@ sub OR_Foil_Time_Analysis {
                                                         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 @@ sub OR_Foil_Time_Analysis {
                                          100,
                                          $plotcolors,
                                          undef,
-                                         @plotdata);
+                                         @plotdata,{xskip=>1});
     return ($correct_plot,$incorrect_plot);
 }
 
@@ -1544,7 +1545,7 @@ sub OR_Concept_Time_Analysis {
                                             100,
                                             $plotcolors,
                                             undef,
-                                            \@plotdata);
+                                            \@plotdata,{xskip=>1});
 }
 
 sub OR_time_process_data {