[BACK]Return to worktime.html CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / techtips

Diff for /doc/techtips/worktime.html between versions 1.1 and 1.2

version 1.1, 2002/06/28 20:56:50 version 1.2, 2005/04/07 06:56:20
Line 40  sub handler { Line 40  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 57  sub handler { Line 57  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 78  sub handler { Line 78  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 100  sub handler { Line 100  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 113  sub handler { Line 113  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.1  
changed lines
  Added in v.1.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.