--- loncom/homework/essayresponse.pm	2003/02/27 21:20:48	1.25
+++ loncom/homework/essayresponse.pm	2003/04/08 02:40:56	1.26
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # essay (ungraded) style responses
 #
-# $Id: essayresponse.pm,v 1.25 2003/02/27 21:20:48 sakharuk Exp $
+# $Id: essayresponse.pm,v 1.26 2003/04/08 02:40:56 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -98,7 +98,7 @@ sub end_essayresponse {
 		if ($collaborators ne $previous_list);
 	}
 	if ( defined $ENV{'form.submitted'}) {
-	    my $response      = $ENV{'form.HWVAL'.$id};
+	    my $response      = $ENV{'form.HWVAL_'.$id};
             my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'};
 	    if (( $response =~ /[^\s]/) || ($filename =~ /[^\s]/)) {
  		my $award;