--- loncom/homework/externalresponse.pm 2002/09/23 07:07:02 1.2 +++ loncom/homework/externalresponse.pm 2003/04/08 02:40:56 1.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # external style responses # -# $Id: externalresponse.pm,v 1.2 2002/09/23 07:07:02 albertel Exp $ +# $Id: externalresponse.pm,v 1.3 2003/04/08 02:40:56 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -52,7 +52,7 @@ sub end_externalresponse { if ($target eq 'grade') { if ( defined $ENV{'form.submitted'}) { my $id = $Apache::inputtags::response['-1']; - my $response = $ENV{'form.HWVAL'.$id}; + my $response = $ENV{'form.HWVAL_'.$id}; if ( $response =~ /[^\s]/) { my $url = &Apache::lonxml::get_param('url',$parstack,$safeeval); my $answer = &Apache::lonxml::get_param('answer',$parstack,$safeeval);