--- loncom/interface/statistics/lonproblemstatistics.pm	2002/08/13 00:37:18	1.19
+++ loncom/interface/statistics/lonproblemstatistics.pm	2002/08/13 12:21:46	1.20
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonproblemstatistics.pm,v 1.19 2002/08/13 00:37:18 stredwic Exp $
+# $Id: lonproblemstatistics.pm,v 1.20 2002/08/13 12:21:46 stredwic Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -69,9 +69,12 @@ sub BuildProblemStatisticsPage {
                                             'ProblemStatistics',
                                             'Statistics');
     $Ptr .= '</td></tr>'."\n";
-    $Ptr .= &ProblemStatisticsButtons($cache{'DisplayFormat'});
+    $Ptr .= &ProblemStatisticsButtons($cache{'DisplayFormat'}, 
+                                      $cache{'DisplayLegend'});
     $Ptr .= '</table>';
-    $Ptr .= &ProblemStatisticsLegend();
+    if($cache{'DisplayLegend'} eq 'Show Legend') {
+        $Ptr .= &ProblemStatisticsLegend();
+    }
     $r->print($Ptr);
     $r->rflush();
 
@@ -356,7 +359,7 @@ sub setbgcolor {
 }
 
 sub ProblemStatisticsButtons {
-    my ($displayFormat)=@_;
+    my ($displayFormat, $displayLegend)=@_;
 
     my $Ptr = '<tr><td></td><td align="left">';
     $Ptr .= '<input type="submit" name="DoDiffGraph" ';
@@ -364,6 +367,13 @@ sub ProblemStatisticsButtons {
     $Ptr .= '&nbsp;&nbsp;&nbsp;';
     $Ptr .= '<input type="submit" name="PercentWrongGraph" ';
     $Ptr .= 'value="%Wrong Graph" />'."\n";
+    $Ptr .= '</td></tr><tr><td></td><td>'."\n";
+    $Ptr .= '<input type="submit" name="DisplayLegend" ';
+    if($displayLegend eq 'Show Legend') {
+        $Ptr .= 'value="Hide Legend" />'."\n";
+    } else {
+        $Ptr .= 'value="Show Legend" />'."\n";
+    }
     $Ptr .= '&nbsp;&nbsp;&nbsp;';
     $Ptr .= '<input type="submit" name="DisplayCSVFormat" ';
     if($displayFormat eq 'Display CSV Format') {