rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.55, 2003/03/02 01:43:01	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 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;