--- loncom/interface/lonstatistics.pm	2003/04/18 15:50:55	1.66
+++ loncom/interface/lonstatistics.pm	2003/04/21 15:12:37	1.67
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstatistics.pm,v 1.66 2003/04/18 15:50:55 matthew Exp $
+# $Id: lonstatistics.pm,v 1.67 2003/04/21 15:12:37 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -832,12 +832,17 @@ sub CreateMainMenu {
     #
     $Str .= '<table border="0"><tbody><tr>'."\n";
     $Str .= '<td></td>'."\n";
+    $Str .= '<td></td>'."\n";
     $Str .= '<td align="center"><b>Select a Report</b></td>'."\n";
     $Str .= '<td align="center"><b>Student Status</b></td></tr>'."\n";
     $Str .= '<tr>'."\n";
     #
-    $Str .= '<td align="center"><input type="submit" name="Refresh" ';
-    $Str .= 'value="Update Display" /></td>'."\n";
+    $Str .= '<td align="center">'.
+        '<input type="submit" name="Refresh" value="Update Display" />'.
+            "</td>\n";
+    $Str .= '<td align="center">'.
+        '<input type="submit" name="ClearCache" value="Clear Caches" />'.
+            "</td>\n";
     #
     $Str .= '<td align="center">';
     $Str .= '<select name="reportSelected" >'."\n";
@@ -925,6 +930,11 @@ END
         return;
     }
     #
+    # Clean out the caches
+    if (exists($ENV{'form.ClearCache'})) {
+        &Apache::loncoursedata::delete_caches($ENV{'requres.course.id'});
+    }
+    #
     # Set up the statistics and chart environment
     &PrepareClasslist($r);
     &PrepareCourseData($r);