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

[bisitz]

bisitz		Mon Feb  3 16:32:35 2014 EDT

  Modified files:              
    /loncom/interface/statistics	lonstudentsubmissions.pm 
  Log:
  Bug #6694: Proper display of submitted answers in "Student Submission Reports"
  
  
  
Index: loncom/interface/statistics/lonstudentsubmissions.pm
diff -u loncom/interface/statistics/lonstudentsubmissions.pm:1.69 loncom/interface/statistics/lonstudentsubmissions.pm:1.70
--- loncom/interface/statistics/lonstudentsubmissions.pm:1.69	Fri Oct 12 14:08:42 2012
+++ loncom/interface/statistics/lonstudentsubmissions.pm	Mon Feb  3 16:32:34 2014
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentsubmissions.pm,v 1.69 2012/10/12 14:08:42 bisitz Exp $
+# $Id: lonstudentsubmissions.pm,v 1.70 2014/02/03 16:32:34 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -735,6 +735,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});