--- doc/homework/worktime.html	2004/05/25 16:02:22	1.3
+++ doc/homework/worktime.html	2005/04/07 06:56:20	1.4
@@ -58,7 +58,7 @@ sub handler {
 	$r->content_type('text/html');
 	$r->send_http_header;
 	return OK if $r->header_only;
-	<i>$r->print("The username handler is in use by $ENV{'user.name'}");</i>
+	<i>$r->print("The username handler is in use by $env{'user.name'}");</i>
 	return OK;
 }
 1;
@@ -75,7 +75,7 @@ sub handler {
 	$r->content_type('text/html');
 	$r->send_http_header;
 	return OK if $r->header_only;
-	<i>$r->print("The username handler is in use by $ENV{'user.name'} looking for "
+	<i>$r->print("The username handler is in use by $env{'user.name'} looking for "
                      .$r->uri."&lt;br&gt;");</i>
 	<b>my $file=&Apache::lonnet::filelocation("",$r->uri);</b>
 	<b>my $contents=&Apache::lonnet::getfile($file);</b>
@@ -96,7 +96,7 @@ sub handler {
 	$r->content_type('text/html');
 	$r->send_http_header;
 	return OK if $r->header_only;
-	$r->print("The username handler is in use by $ENV{'user.name'} looking for "
+	$r->print("The username handler is in use by $env{'user.name'} looking for "
                    .$r->uri."&lt;br&gt;");
 	my $file=&Apache::lonnet::filelocation("",$r->uri);
 	my $contents=&Apache::lonnet::getfile($file);
@@ -118,7 +118,7 @@ sub handler {
         $r->content_type('text/html');
         $r->send_http_header;
         return OK if $r->header_only;
-        $r->print("The username handler is in use by $ENV{'user.name'} looking for "
+        $r->print("The username handler is in use by $env{'user.name'} looking for "
                    .$r->uri."&lt;br&gt;");
         my $file=&amp;Apache::lonnet::filelocation("",$r->uri);
         my $contents=&amp;Apache::lonnet::getfile($file);
@@ -131,9 +131,9 @@ sub handler {
         } else {
                 $r->print("&lt;br&gt;Last time you said $hash{'info'}");
         }
-        if ($ENV{'form.info'}) {
-                $r->print("&lt;br&gt;Now you say $ENV{'form.info'}");
-                $hash{'info'}=$ENV{'form.info'};
+        if ($env{'form.info'}) {
+                $r->print("&lt;br&gt;Now you say $env{'form.info'}");
+                $hash{'info'}=$env{'form.info'};
                 &amp;Apache::lonnet::put('username',%hash);
         }</b>
         return OK;