--- loncom/homework/inputtags.pm	2013/08/29 13:02:11	1.322
+++ loncom/homework/inputtags.pm	2014/06/19 19:37:35	1.324
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.322 2013/08/29 13:02:11 raeburn Exp $
+# $Id: inputtags.pm,v 1.324 2014/06/19 19:37:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -238,7 +238,11 @@ sub start_textfield {
 	    if ($addchars) {
 		$result.=&addchars($tagident, $addchars);
 	    }
-            my $textareaclass = 'class="LC_richDetectHtml spellchecked"';
+            my $textareaclass;
+            unless (&Apache::londefdef::is_inside_of($tagstack,
+                                                    'externalresponse')) {
+                $textareaclass = 'class="LC_richDetectHtml spellchecked"';
+            }
 	    $result.= '<textarea wrap="hard" name="'.$tagident.'" id="'.$tagident.'" ' .
 		      'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass
 		      .'>'.
@@ -254,7 +258,8 @@ sub start_textfield {
 		&& &Apache::londefdef::is_inside_of($tagstack,
 						    'essayresponse') ) {
 		$result='<table class="LC_pastsubmission"><tr><td>'.
-		    $oldresponse.'</td></tr></table>';
+		    &HTML::Entities::encode($oldresponse,'"<>&').
+                    '</td></tr></table>';
 	    }
 	    #get rid of any startup text
 	    &Apache::lonxml::get_all_text("/textfield",$parser,$style);