version 1.26, 2001/12/17 00:57:59
|
version 1.27, 2002/06/05 12:52:05
|
Line 370 sub accinit {
|
Line 370 sub accinit {
|
if ($acchash{'acc.res.'.$short.'.'.$uripath}=~ |
if ($acchash{'acc.res.'.$short.'.'.$uripath}=~ |
/(\&$urifile\:[^\&]*)/) { |
/(\&$urifile\:[^\&]*)/) { |
my $replace=$1; |
my $replace=$1; |
|
my $regexp=$replace; |
|
$regexp=~s/\|/\\\|/g; |
$acchash{'acc.res.'.$short.'.'.$uripath} |
$acchash{'acc.res.'.$short.'.'.$uripath} |
=~s/$replace/$replace\|$uricond/; |
=~s/$regexp/$replace\|$uricond/; |
} else { |
} else { |
$acchash{'acc.res.'.$short.'.'.$uripath}.= |
$acchash{'acc.res.'.$short.'.'.$uripath}.= |
$urifile.':'.$uricond.'&'; |
$urifile.':'.$uricond.'&'; |