Return to lonuserstate.pm CVS log | Up to [LON-CAPA] / rat |
version 1.55, 2003/03/02 01:43:01 | version 1.56, 2003/03/17 18:07:09 |
---|---|
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; |