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

Diff for /doc/techtips/worktime-new-1.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 206  sub handler { Line 206  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 workshop handler is in use by $ENV{'user.name'}");</i>   <i>$r->print("The workshop handler is in use by $env{'user.name'}");</i>
  return OK;   return OK;
 }  }
 1;  1;
Line 223  sub handler { Line 223  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 workshop handler is in use by $ENV{'user.name'} looking for "   <i>$r->print("The workshop 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=&amp;Apache::lonnet::filelocation("",$r->uri);</b>   <b>my $file=&amp;Apache::lonnet::filelocation("",$r->uri);</b>
  <b>my $contents=&amp;Apache::lonnet::getfile($file);</b>   <b>my $contents=&amp;Apache::lonnet::getfile($file);</b>
Line 244  sub handler { Line 244  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 workshop handler is in use by $ENV{'user.name'} looking for "   $r->print("The workshop 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 266  sub handler { Line 266  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 workshop handler is in use by $ENV{'user.name'} looking for "          $r->print("The workshop handler is in use by $env{'user.name'} looking for "
                    .$r->uri."&lt;br&gt;");                     .$r->uri."&lt;br&gt;");
         my $file=&amp;amp;Apache::lonnet::filelocation("",$r->uri);          my $file=&amp;amp;Apache::lonnet::filelocation("",$r->uri);
         my $contents=&amp;amp;Apache::lonnet::getfile($file);          my $contents=&amp;amp;Apache::lonnet::getfile($file);
Line 279  sub handler { Line 279  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('workshop',\%hash);                  &amp;Apache::lonnet::put('workshop',\%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>