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

raeburn raeburn at source.lon-capa.org
Tue Feb 25 22:15:04 EST 2014


raeburn		Wed Feb 26 03:15:04 2014 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/interface/statistics	lonstudentsubmissions.pm 
  Log:
  - For 2.11
    - Backport 1.70
  
  
Index: loncom/interface/statistics/lonstudentsubmissions.pm
diff -u loncom/interface/statistics/lonstudentsubmissions.pm:1.68.2.2 loncom/interface/statistics/lonstudentsubmissions.pm:1.68.2.3
--- loncom/interface/statistics/lonstudentsubmissions.pm:1.68.2.2	Mon Dec 10 23:18:47 2012
+++ loncom/interface/statistics/lonstudentsubmissions.pm	Wed Feb 26 03:15:04 2014
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentsubmissions.pm,v 1.68.2.2 2012/12/10 23:18:47 raeburn Exp $
+# $Id: lonstudentsubmissions.pm,v 1.68.2.3 2014/02/26 03:15:04 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -733,6 +733,14 @@
         foreach my $original_header (@$headers) {
             if ($original_header eq 'Time') {
                 push(@values,&Apache::lonlocal::locallocaltime($response->{$original_header}));
+            } elsif (($original_header eq 'Submission') &&
+                    !($resptype =~ /^(radiobutton|option|match|rank)$/)) {
+                # encode all submissions which have not been encoded above
+                push(@values,&HTML::Entities::encode($response->{$original_header},'<>&"'));
+            } elsif (($original_header eq 'Correct') &&
+                     ($resptype eq 'radiobutton')) {
+                # encode foil separators
+                push(@values,&HTML::Entities::encode($response->{$original_header},'&'));
             } else {
                 # A normal column
                 push(@values,$response->{$original_header});




More information about the LON-CAPA-cvs mailing list