version 1.53, 2003/02/28 18:14:44
|
version 1.54, 2003/03/01 15:13:59
|
Line 381 sub accinit {
|
Line 381 sub accinit {
|
my $urifile=$uriparts[$#uriparts]; |
my $urifile=$uriparts[$#uriparts]; |
$#uriparts--; |
$#uriparts--; |
my $uripath=join('/',@uriparts); |
my $uripath=join('/',@uriparts); |
$uripath=~s/^\/res\///; |
$uripath=&Apache::lonnet::declutter($uripath); |
if ($uripath) { |
if ($uripath) { |
my $uricond='0'; |
my $uricond='0'; |
if (defined($hash{'conditions_'.$resid})) { |
if (defined($hash{'conditions_'.$resid})) { |