--- loncom/homework/externalresponse.pm 2008/11/20 14:37:37 1.15 +++ loncom/homework/externalresponse.pm 2010/12/20 15:54:03 1.16 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # external style responses # -# $Id: externalresponse.pm,v 1.15 2008/11/20 14:37:37 jms Exp $ +# $Id: externalresponse.pm,v 1.16 2010/12/20 15:54:03 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -113,6 +113,7 @@ sub end_externalresponse { $Apache::lonhomework::results{"resource.$part.$id.$key"}= $Apache::loncapagrade::results{$key}; } + $Apache::externalresponse::message=$Apache::loncapagrade::results{'message'}; &Apache::response::handle_previous(\%previous, $Apache::loncapagrade::results{'awarddetail'}); &Apache::lonxml::debug("response of"); @@ -126,6 +127,10 @@ sub end_externalresponse { } if ($target eq 'web') { &Apache::response::setup_prior_tries_hash(\&format_prior_response); + if ($Apache::externalresponse::message) { + $result.='
'.$Apache::externalresponse::message; + } + $Apache::externalresponse::message=''; } if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || @@ -176,4 +181,4 @@ described at http://www.lon-capa.org. =back -=cut \ No newline at end of file +=cut