[LON-CAPA-cvs] cvs: loncom /interface/statistics lonstudentassessment.pm

matthew lon-capa-cvs@mail.lon-capa.org
Fri, 07 Mar 2003 15:18:39 -0000


matthew		Fri Mar  7 10:18:39 2003 EDT

  Modified files:              
    /loncom/interface/statistics	lonstudentassessment.pm 
  Log:
  Added timestamp to html and csv output.  Already present in excel output.
  
  
Index: loncom/interface/statistics/lonstudentassessment.pm
diff -u loncom/interface/statistics/lonstudentassessment.pm:1.37 loncom/interface/statistics/lonstudentassessment.pm:1.38
--- loncom/interface/statistics/lonstudentassessment.pm:1.37	Thu Mar  6 17:45:04 2003
+++ loncom/interface/statistics/lonstudentassessment.pm	Fri Mar  7 10:18:39 2003
@@ -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 @@
     $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();
@@ -875,6 +877,13 @@
                   "Please alert your LON-CAPA administrator.");
         $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 = '';