--- loncom/interface/statistics/lonstudentassessment.pm	2003/03/06 22:45:04	1.37
+++ loncom/interface/statistics/lonstudentassessment.pm	2003/03/07 15:18:39	1.38
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.37 2003/03/06 22:45:04 matthew Exp $
+# $Id: lonstudentassessment.pm,v 1.38 2003/03/07 15:18:39 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -452,6 +452,8 @@ sub html_initialize {
     $padding = ' 'x3;
     $count = 0;
     #
+    $r->print("<h3>".$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.
+              "&nbsp;&nbsp;".localtime(time)."</h3>");
     my $Str = "<pre>\n";
     # First, the @StudentData fields need to be listed
     my @to_show = &get_student_fields_to_show();
@@ -876,6 +878,13 @@ sub csv_initialize{
         $outputfile = undef;
     }
     #
+    # Datestamp
+    my $description = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
+    print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'.
+        '"'.&Apache::loncommon::csv_translate(scalar(localtime(time))).'"'.
+            "\n";
+
+    #
     # Print out the headings
     my $Str = '';
     my $Str2 = undef;