--- doc/techtips/worktime.html	2002/06/28 20:56:50	1.1
+++ doc/techtips/worktime.html	2005/04/07 06:56:20	1.2
@@ -40,7 +40,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;
@@ -57,7 +57,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>
@@ -78,7 +78,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);
@@ -100,7 +100,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);
@@ -113,9 +113,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;