Diff for /rat/lonuserstate.pm between versions 1.7 and 1.8

version 1.7, 2000/09/04 11:28:04 version 1.8, 2000/09/04 17:17:51
Line 275  sub accinit { Line 275  sub accinit {
             my $urifile=$uriparts[$#uriparts];              my $urifile=$uriparts[$#uriparts];
             $#uriparts--;              $#uriparts--;
             my $uripath=join('/',@uriparts);              my $uripath=join('/',@uriparts);
               $uripath=~s/^\/res\///;
             if (defined($hash{'conditions_'.$resid})) {              if (defined($hash{'conditions_'.$resid})) {
   $urifile.=':'.$captured{$hash{'conditions_'.$resid}};    $urifile.=':'.$captured{$hash{'conditions_'.$resid}};
             } else {              } else {
Line 287  sub accinit { Line 288  sub accinit {
             }              }
         }          }
     } keys %hash;      } keys %hash;
       my $courseuri=$uri;
       $courseuri=~s/^\/res\///;
     &Apache::lonnet::appenv(%acchash,      &Apache::lonnet::appenv(%acchash,
                             "request.course"    => $short,                              "request.course"     => $short,
                             "request.course.fn" => $fn);                               "request.course.fn"  => $fn,
                               "request.course.uri" => $courseuri); 
 }  }
   
 # ---------------------------------------------------- Read map and all submaps  # ---------------------------------------------------- Read map and all submaps

Removed from v.1.7  
changed lines
  Added in v.1.8


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