version 1.54, 2003/03/01 15:13:59
|
version 1.57, 2003/03/25 22:50:14
|
Line 97 sub loadmap {
|
Line 97 sub loadmap {
|
|
|
my $instr=&Apache::lonnet::getfile($fn); |
my $instr=&Apache::lonnet::getfile($fn); |
|
|
unless ($instr == -1) { |
unless ($instr eq -1) { |
|
|
# Successfully got file, parse it |
# Successfully got file, parse it |
|
|
Line 377 sub accinit {
|
Line 377 sub accinit {
|
my $resid=$_; |
my $resid=$_; |
my $uri=$hash{'src_'.$resid}; |
my $uri=$hash{'src_'.$resid}; |
$uri=~s/^\/adm\/wrapper//; |
$uri=~s/^\/adm\/wrapper//; |
|
$uri=&Apache::lonnet::declutter($uri); |
my @uriparts=split(/\//,$uri); |
my @uriparts=split(/\//,$uri); |
my $urifile=$uriparts[$#uriparts]; |
my $urifile=$uriparts[$#uriparts]; |
$#uriparts--; |
$#uriparts--; |
my $uripath=join('/',@uriparts); |
my $uripath=join('/',@uriparts); |
$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})) { |
Line 389 sub accinit {
|
Line 389 sub accinit {
|
} |
} |
if (defined($acchash{'acc.res.'.$short.'.'.$uripath})) { |
if (defined($acchash{'acc.res.'.$short.'.'.$uripath})) { |
if ($acchash{'acc.res.'.$short.'.'.$uripath}=~ |
if ($acchash{'acc.res.'.$short.'.'.$uripath}=~ |
/(\&$urifile\:[^\&]*)/) { |
/(\&\Q$urifile\E\:[^\&]*)/) { |
my $replace=$1; |
my $replace=$1; |
my $regexp=$replace; |
my $regexp=$replace; |
$regexp=~s/\|/\\\|/g; |
$regexp=~s/\|/\\\|/g; |