--- loncom/homework/externalresponse.pm 2010/12/21 01:53:08 1.18 +++ loncom/homework/externalresponse.pm 2011/04/29 00:32:08 1.19 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # external style responses # -# $Id: externalresponse.pm,v 1.18 2010/12/21 01:53:08 www Exp $ +# $Id: externalresponse.pm,v 1.19 2011/04/29 00:32:08 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -118,6 +118,10 @@ sub end_externalresponse { $Apache::externalresponse::message=$Apache::loncapagrade::results{'message'}; &Apache::response::handle_previous(\%previous, $Apache::loncapagrade::results{'awarddetail'}); + if ($Apache::loncapagrade::results{'awarddetail'} eq 'ASSIGNED_SCORE') { + $Apache::lonhomework::results{"resource.$part.$id.awarded"}= + 1.*$Apache::loncapagrade::results{"awarded"}; + } &Apache::lonxml::debug("response of"); &Apache::lonhomework::showhash(%$res); &Apache::lonxml::debug("capagrade of");