version 1.301, 2012/01/29 03:02:52
|
version 1.302, 2012/03/11 20:17:10
|
Line 185 sub start_textfield {
|
Line 185 sub start_textfield {
|
} |
} |
} |
} |
unless ($newvariation) { |
unless ($newvariation) { |
$oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$resid.submission"},'<>&"'); |
$oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"}; |
} |
} |
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') { |
my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval); |
my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval); |
Line 200 sub start_textfield {
|
Line 200 sub start_textfield {
|
my $textareaclass = 'class="LC_richDetectHtml"'; |
my $textareaclass = 'class="LC_richDetectHtml"'; |
$result.= '<textarea wrap="hard" name="HWVAL_'.$resid.'" id="HWVAL_'.$resid.'" '. |
$result.= '<textarea wrap="hard" name="HWVAL_'.$resid.'" id="HWVAL_'.$resid.'" '. |
'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass.'>'. |
'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass.'>'. |
$oldresponse; |
&HTML::Entities::encode($oldresponse,'<>&"'); |
if ($oldresponse ne '') { |
if ($oldresponse ne '') { |
|
|
#get rid of any startup text if the user has already responded |
#get rid of any startup text if the user has already responded |