rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

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;