--- loncom/homework/externalresponse.pm	2002/01/30 17:30:06	1.1
+++ 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.1 2002/01/30 17:30:06 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);
@@ -60,7 +61,7 @@ sub end_externalresponse {
 	$form{'LONCAPA_student_response'}=$response;
 	$form{'LONCAPA_correct_answer'}=$answer;
 	$form{'LONCAPA_language'}=
-	  &Apache::lonnet::metadata($ENV{'RQUEST_URI'},'language');
+	  &Apache::lonnet::metadata($ENV{'REQUEST_URI'},'language');
 	&Apache::lonxml::debug("Asking $url, with:");
 	&Apache::lonhomework::showhash(%form);
 	my $ua = LWP::UserAgent->new;