--- loncom/homework/inputtags.pm 2004/03/13 00:36:11 1.136
+++ loncom/homework/inputtags.pm 2005/03/01 03:23:16 1.158
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# input definitons
#
-# $Id: inputtags.pm,v 1.136 2004/03/13 00:36:11 albertel Exp $
+# $Id: inputtags.pm,v 1.158 2005/03/01 03:23:16 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -65,6 +65,9 @@ sub initialize_inputtags {
@Apache::inputtags::importlist=();
# just used to note whether we have seen a response that isn't in a part
$Apache::inputtags::response_with_no_part=0;
+ # storage location so the begin <*response> tag can generate the correct
+ # answer string for display by the
+ %Apache::inputtags::answertxt=();
}
sub check_for_duplicate_ids {
@@ -118,19 +121,21 @@ sub start_textfield {
$Apache::lonxml::evaluate--;
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
my $partid=$Apache::inputtags::part;
- my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$resid.submission"});
+ my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$resid.submission"},'<>&"');
my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);
if ( $cols eq '') { $cols = 80; }
my $rows = &Apache::lonxml::get_param('rows',$parstack,$safeeval);
- if ( $rows eq '') { $rows = 10; }
+ if ( $rows eq '') { $rows = 16; }
my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval);
$result='';
if ($addchars) {
$result.=&addchars('HWVAL_'.$resid,$addchars);
}
- $result.= '