--- loncom/interface/Attic/lonchart.pm	2001/07/10 18:15:25	1.5
+++ loncom/interface/Attic/lonchart.pm	2001/09/08 19:16:01	1.6
@@ -16,6 +16,7 @@
 # 1/31 Gerd Kortemeyer
 #
 # 7/10/01 Behrouz Minaei
+# 9/8 Gerd Kortemeyer
 
 package Apache::lonchart;
 
@@ -221,9 +222,15 @@ sub handler {
 # ---------------------------------------------------------------- Course title
 
     $r->print('<h1>'.
-            $ENV{'course.'.$ENV{'request.course.id'}.'.description'}.'</h1>');
-
-
+    $ENV{'course.'.$ENV{'request.course.id'}.'.description'}.'</h1><h3>'.
+    localtime()."</h3><p><pre>1..9: correct by student in 1..9 tries\n".
+                            "   *: correct by student in more than 9 tries\n".
+	                    "   +: correct by override\n".
+                            "   -: incorrect by override\n".
+	                    "   .: incorrect attempted\n".
+                            "    : not attempted\n".
+	                    "   x: excused</pre><p>");
+  
 # ------------------------------- This is going to take a while, produce output
 
              $r->rflush();