--- doc/homework/worktime.html	2004/05/07 21:34:26	1.2
+++ doc/homework/worktime.html	2005/04/07 06:56:20	1.4
@@ -19,15 +19,18 @@
     </p>
  
     <h3>Conf Changes</h3>
-&lt;Location /adm/username&gt;
-SetHandler perl-script
-PerlHandler Apache::username
-&lt;/Location&gt;
 
-&lt;LocationMatch &quot;\.username$&quot;&gt;
-SetHandler perl-script
-PerlHandler Apache::username
-&lt;/LocationMatch&gt;
+
+&lt;Location /adm/username&gt;<br />
+PerlAccessHandler       Apache::lonacc<br />
+SetHandler perl-script<br />
+PerlHandler Apache::username<br />
+&lt;/Location&gt;<br />
+
+&lt;LocationMatch &quot;\.username$&quot;&gt;<br />
+SetHandler perl-script<br />
+PerlHandler Apache::username<br />
+&lt;/LocationMatch&gt;<br />
 
        <h3>Example 1</h3>
     <pre>
@@ -55,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;
@@ -72,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>
@@ -93,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);
@@ -115,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);
@@ -128,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;