Diff for /doc/homework/worktime.html between versions 1.3 and 1.4

version 1.3, 2004/05/25 16:02:22 version 1.4, 2005/04/07 06:56:20
Line 58  sub handler { Line 58  sub handler {
  $r->content_type('text/html');   $r->content_type('text/html');
  $r->send_http_header;   $r->send_http_header;
  return OK if $r->header_only;   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;   return OK;
 }  }
 1;  1;
Line 75  sub handler { Line 75  sub handler {
  $r->content_type('text/html');   $r->content_type('text/html');
  $r->send_http_header;   $r->send_http_header;
  return OK if $r->header_only;   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>                       .$r->uri."&lt;br&gt;");</i>
  <b>my $file=&Apache::lonnet::filelocation("",$r->uri);</b>   <b>my $file=&Apache::lonnet::filelocation("",$r->uri);</b>
  <b>my $contents=&Apache::lonnet::getfile($file);</b>   <b>my $contents=&Apache::lonnet::getfile($file);</b>
Line 96  sub handler { Line 96  sub handler {
  $r->content_type('text/html');   $r->content_type('text/html');
  $r->send_http_header;   $r->send_http_header;
  return OK if $r->header_only;   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;");                     .$r->uri."&lt;br&gt;");
  my $file=&Apache::lonnet::filelocation("",$r->uri);   my $file=&Apache::lonnet::filelocation("",$r->uri);
  my $contents=&Apache::lonnet::getfile($file);   my $contents=&Apache::lonnet::getfile($file);
Line 118  sub handler { Line 118  sub handler {
         $r->content_type('text/html');          $r->content_type('text/html');
         $r->send_http_header;          $r->send_http_header;
         return OK if $r->header_only;          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;");                     .$r->uri."&lt;br&gt;");
         my $file=&amp;Apache::lonnet::filelocation("",$r->uri);          my $file=&amp;Apache::lonnet::filelocation("",$r->uri);
         my $contents=&amp;Apache::lonnet::getfile($file);          my $contents=&amp;Apache::lonnet::getfile($file);
Line 131  sub handler { Line 131  sub handler {
         } else {          } else {
                 $r->print("&lt;br&gt;Last time you said $hash{'info'}");                  $r->print("&lt;br&gt;Last time you said $hash{'info'}");
         }          }
         if ($ENV{'form.info'}) {          if ($env{'form.info'}) {
                 $r->print("&lt;br&gt;Now you say $ENV{'form.info'}");                  $r->print("&lt;br&gt;Now you say $env{'form.info'}");
                 $hash{'info'}=$ENV{'form.info'};                  $hash{'info'}=$env{'form.info'};
                 &amp;Apache::lonnet::put('username',%hash);                  &amp;Apache::lonnet::put('username',%hash);
         }</b>          }</b>
         return OK;          return OK;

Removed from v.1.3  
changed lines
  Added in v.1.4


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>