[BACK]Return to lonacc.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonacc.pm between versions 1.25 and 1.30

version 1.25, 2001/12/15 20:40:23 version 1.30, 2002/04/02 21:33:06
Line 33 Line 33
 # YEAR=2001  # YEAR=2001
 # 01/06/01,05/28,8/11,9/26,11/29 Gerd Kortemeyer  # 01/06/01,05/28,8/11,9/26,11/29 Gerd Kortemeyer
 # 12/15 Scott Harrison  # 12/15 Scott Harrison
   # YEAR=2002
   # 1/4,2/25 Gerd Kortemeyer
 #  #
 ###  ###
   
Line 98  sub handler { Line 100  sub handler {
                $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;                 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
                $name  =~ tr/+/ /;                 $name  =~ tr/+/ /;
                $name  =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;                 $name  =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
                $ENV{"form.$name"}=$value;         &Apache::loncommon::add_to_env("form.$name",$value);
             }              }
         } else {          } else {
     my $contentsep=$1;      my $contentsep=$1;
Line 118  sub handler { Line 120  sub handler {
                         } else {                          } else {
                             $value=~s/\s+$//s;                              $value=~s/\s+$//s;
                         }                          }
                         $ENV{"form.$name"}=$value;   &Apache::loncommon::add_to_env("form.$name",$value);
                     }                      }
                     if ($i<$#lines) {                      if ($i<$#lines) {
  $i++;   $i++;
Line 146  sub handler { Line 148  sub handler {
                 }                  }
             }              }
  }   }
       $ENV{'request.method'}=$ENV{'REQUEST_METHOD'};
             $r->method_number(M_GET);              $r->method_number(M_GET);
     $r->method('GET');      $r->method('GET');
             $r->headers_in->unset('Content-length');              $r->headers_in->unset('Content-length');
Line 169  sub handler { Line 172  sub handler {
             $requrl=~/\.(\w+)$/;              $requrl=~/\.(\w+)$/;
             if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {              if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {
 # ------------------------------------- This is serious stuff, get symb and log  # ------------------------------------- This is serious stuff, get symb and log
  my $symb=&Apache::lonnet::symbread;   my $query=$r->args;
                   my $symb;
                   if ($query) {
       &Apache::loncommon::get_unprocessed_cgi($query,['symb']);
                   }
                   if ($ENV{'form.symb'}) {
       $symb=$ENV{'form.symb'};
                       my ($map,$mid,$murl)=split(/\_\_\_/,$symb);
                       &Apache::lonnet::symblist($map,$murl => $mid,
                                               'last_known' => $murl);
                   } else {
               $symb=&Apache::lonnet::symbread;
                   }
                 $ENV{'request.symb'}=$symb;                  $ENV{'request.symb'}=$symb;
                 &Apache::lonnet::courseacclog($symb);                  &Apache::lonnet::courseacclog($symb);
             } else {              } else {
Removed from v.1.25  
changed lines
  Added in v.1.30

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