--- loncom/homework/inputtags.pm	2013/08/29 12:47:30	1.321
+++ 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.321 2013/08/29 12:47:30 raeburn Exp $
+# $Id: inputtags.pm,v 1.324 2014/06/19 19:37:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -222,7 +222,7 @@ sub start_textfield {
                 $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};
             } elsif (($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurvey') ||
                     ($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred')) {
-                $oldresponse = '* '.&mt('only shown to submitter').' *';
+                $oldresponse = '* '.&mt('(only shown to submitter)').' *';
             } else {
                 $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};
             }
@@ -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);
@@ -424,7 +429,7 @@ sub start_textline {
                         ($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred') ||
                         ($Apache::lonhomework::type eq 'anonsurvey') ||
                         ($Apache::lonhomework::type eq 'anonsurveycred')) {
-                        $oldresponse = '* '.&mt('only shown to submitter').' *';
+                        $oldresponse = '* '.&mt('(only shown to submitter)').' *';
                 } else {
                     $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};
                 }