--- loncom/homework/default_homework.lcpm	2013/01/21 06:16:50	1.163
+++ loncom/homework/default_homework.lcpm	2014/06/16 16:52:50	1.164
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # used by lonxml::xmlparse() as input variable $safeinit to Apache::run::run()
 #
-# $Id: default_homework.lcpm,v 1.163 2013/01/21 06:16:50 raeburn Exp $
+# $Id: default_homework.lcpm,v 1.164 2014/06/16 16:52:50 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1208,10 +1208,18 @@ sub sec {
 }
 
 sub submission {
-   my ($partid,$responseid,$subnumber)=@_;
+   my ($partid,$responseid,$subnumber,$encode)=@_;
    my $sub='';
    if ($subnumber) { $sub=$subnumber.':'; }
-   return &EXT('user.resource.'.$sub.'resource.'.$partid.'.'.$responseid.'.submission');
+   my $output =
+       &EXT('user.resource.'.$sub.'resource.'.$partid.'.'.$responseid.'.submission');
+   if ($encode) {
+       $output =~ s/&/&/g;
+       $output =~ s/</&lt;/g;
+       $output =~ s/>/&gt;/g;
+       $output =~ s/"/&quot;/g;
+   };
+   return $output;
 }
 
 sub currentpart {