--- loncom/homework/inputtags.pm 2001/08/18 07:56:51 1.44
+++ loncom/homework/inputtags.pm 2001/10/03 12:48:47 1.45
@@ -54,8 +54,12 @@ sub start_textarea {
if ( $cols eq '') { $cols = 80; }
my $rows = &Apache::lonxml::get_param('rows',$parstack,$safeeval);
if ( $rows eq '') { $rows = 10; }
- $result= '";
+ }
+ }
&end_input;
return '';
}
@@ -83,8 +89,12 @@ sub start_textline {
my $id=$Apache::inputtags::response['-1'];
my $oldresponse =
$Apache::lonhomework::history{"resource.$partid.$id.submission"};
- $result= '';
+ if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
+ $result= '';
+ } else {
+ $result=''.$oldresponse.'';
+ }
} elsif ($target eq 'edit') {
$result=&Apache::edit::tag_start($target,$token,
&Apache::lonxml::description($token));