--- loncom/homework/externalresponse.pm	2003/04/08 02:40:56	1.3
+++ loncom/homework/externalresponse.pm	2005/04/07 06:56:21	1.4
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # external style responses
 #
-# $Id: externalresponse.pm,v 1.3 2003/04/08 02:40:56 albertel Exp $
+# $Id: externalresponse.pm,v 1.4 2005/04/07 06:56:21 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -30,6 +30,7 @@ package Apache::externalresponse;
 use strict;
 use HTTP::Request::Common;
 use Apache::loncapagrade;
+use Apache::lonnet;
 
 BEGIN {
   &Apache::lonxml::register('Apache::externalresponse',('externalresponse'));
@@ -50,9 +51,9 @@ sub end_externalresponse {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result;
   if ($target eq 'grade') {
-    if ( defined $ENV{'form.submitted'}) {
+    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);