[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface/statistics lonstudentsubmissions.pm

raeburn raeburn at source.lon-capa.org
Mon Dec 10 18:18:47 EST 2012


raeburn		Mon Dec 10 23:18:47 2012 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/interface/statistics	lonstudentsubmissions.pm 
  Log:
  - For 2.11.
    - Backport 1.69.
  
  
Index: loncom/interface/statistics/lonstudentsubmissions.pm
diff -u loncom/interface/statistics/lonstudentsubmissions.pm:1.68.2.1 loncom/interface/statistics/lonstudentsubmissions.pm:1.68.2.2
--- loncom/interface/statistics/lonstudentsubmissions.pm:1.68.2.1	Sat May 12 03:52:02 2012
+++ loncom/interface/statistics/lonstudentsubmissions.pm	Mon Dec 10 23:18:47 2012
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentsubmissions.pm,v 1.68.2.1 2012/05/12 03:52:02 raeburn Exp $
+# $Id: lonstudentsubmissions.pm,v 1.68.2.2 2012/12/10 23:18:47 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -730,7 +730,14 @@
             }
         }
     } else {
-        @values = map { $response->{$_}; } @$headers;
+        foreach my $original_header (@$headers) {
+            if ($original_header eq 'Time') {
+                push(@values,&Apache::lonlocal::locallocaltime($response->{$original_header}));
+            } else {
+                # A normal column
+                push(@values,$response->{$original_header});
+            }
+        }
     }
     my $td = '<td valign="top">';
     my $str = $td.join('</td>'.$td, at values).'</td>';
@@ -1236,7 +1243,7 @@
 sub csv_format_item {
     my ($item,$type) = @_;
     if ($type eq 'Time') {
-        $item = localtime($item);
+        $item = &Apache::lonlocal::locallocaltime($item);
     }
     $item =&Apache::loncommon::csv_translate($item); 
     return $item;




More information about the LON-CAPA-cvs mailing list