--- loncom/interface/lontest.pm	2005/04/05 20:43:27	1.15
+++ loncom/interface/lontest.pm	2005/04/07 06:56:23	1.16
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # A debugging harness.
 #
-# $Id: lontest.pm,v 1.15 2005/04/05 20:43:27 albertel Exp $
+# $Id: lontest.pm,v 1.16 2005/04/07 06:56:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -39,7 +39,7 @@ use Apache::lonnet;
 # what section the given env var is in, which is the part
 # of the env var before the first period.
 # Returns the section, or blank string for 'no section',
-# which is normal for the standard ENV vars like REQUEST_URI.
+# which is normal for the standard env vars like REQUEST_URI.
 sub section
 {
     my ($name) = @_;
@@ -101,13 +101,13 @@ sub handler {
     &print_hash($r,\%env);
     &print_hash($r,\%ENV);
 # ------------------------------------------------ If in a course, print hashes
-    if ($ENV{'request.course.id'}) {
+    if ($env{'request.course.id'}) {
 
 	my %parmhash;
 	my %symbhash;
 	my %hash;
 
-	my $fn=$ENV{'request.course.fn'};
+	my $fn=$env{'request.course.fn'};
 
 	if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {
 	    $r->print('<h2>Big Hash</h2>');
@@ -119,7 +119,7 @@ sub handler {
 	    $r->print('<h2>Count not tie big hash</h2>');
 	}
 	if (tie(%parmhash,'GDBM_File',
-		$ENV{'request.course.fn'}.'_parms.db',
+		$env{'request.course.fn'}.'_parms.db',
 		&GDBM_READER(),0640)) {
 	    $r->print('<h2>Parm Hash</h2>');
 	    foreach (sort keys %parmhash) {