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 |