--- loncom/homework/inputtags.pm 2006/06/05 18:53:03 1.194 +++ loncom/homework/inputtags.pm 2006/06/29 22:57:39 1.197 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # input definitons # -# $Id: inputtags.pm,v 1.194 2006/06/05 18:53:03 banghart Exp $ +# $Id: inputtags.pm,v 1.197 2006/06/29 22:57:39 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -284,7 +284,8 @@ sub start_textline { my $partid=$Apache::inputtags::part; my $id=$Apache::inputtags::response[-1]; if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER' - || $Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') { + || ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER' && + $Apache::lonhomework::history{"resource.$partid.solved"} !~ /^correct/ )) { my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval); my $maxlength; if ($size eq '') { $size=20; } else { @@ -454,7 +455,7 @@ sub file_selector { } $result.=&mt("Portfolio files previously selected: [_1]",join(', ',@filelist)); if (@bad_file_list) { - $result.='
'.&mt('These file(s) don\'t exist: [_1]',join(', ',@bad_file_list)); + $result.='
'.&mt('These file(s) don\'t exist: [_1]',join(', ',@bad_file_list)); } } } @@ -721,7 +722,7 @@ sub decideoutput { foreach my $resid(@Apache::inputtags::response){ &Apache::lonnet::logthis("handback is ".$Apache::lonhomework::history{"resource.$part.$resid.handback"}); if ($Apache::lonhomework::history{"resource.$part.$resid.handback"}) { - $message.= '
Returned File'; + $message.= '
Returned File'; } }