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