--- loncom/homework/inputtags.pm 2013/08/29 12:47:30 1.321 +++ loncom/homework/inputtags.pm 2014/01/13 15:29:10 1.323 @@ -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.323 2014/01/13 15:29:10 bisitz 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"}; } @@ -254,7 +254,8 @@ sub start_textfield { && &Apache::londefdef::is_inside_of($tagstack, 'essayresponse') ) { $result='
'. - $oldresponse.'
'; + &HTML::Entities::encode($oldresponse,'"<>&'). + ''; } #get rid of any startup text &Apache::lonxml::get_all_text("/textfield",$parser,$style); @@ -424,7 +425,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"}; }