rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.22, 2001/07/05 18:14:17	version 1.23, 2001/08/30 21:56:55
Line 13	Line 13
# 7/15,7/17,7/18,8/1,8/2,8/4,8/5,8/21,8/22,8/23,8/30,	# 7/15,7/17,7/18,8/1,8/2,8/4,8/5,8/21,8/22,8/23,8/30,
# 9/2,9/4,9/29,9/30,10/2,10/11,10/30,10/31,	# 9/2,9/4,9/29,9/30,10/2,10/11,10/30,10/31,
# 11/1,11/2,11/14,11/16,11/22,12/28,	# 11/1,11/2,11/14,11/16,11/22,12/28,
# 07/05/01 Gerd Kortemeyer	# 07/05/01,08/30 Gerd Kortemeyer

package Apache::lonuserstate;	package Apache::lonuserstate;

Line 330 sub accinit {	Line 330 sub accinit {
$#uriparts--;	$#uriparts--;
my $uripath=join('/',@uriparts);	my $uripath=join('/',@uriparts);
$uripath=~s/^\/res\///;	$uripath=~s/^\/res\///;
	if ($uripath) {
my $uricond='0';	my $uricond='0';
if (defined($hash{'conditions_'.$resid})) {	if (defined($hash{'conditions_'.$resid})) {
$uricond=$captured{$hash{'conditions_'.$resid}};	$uricond=$captured{$hash{'conditions_'.$resid}};
Line 347 sub accinit {	Line 348 sub accinit {
} else {	} else {
$acchash{'acc.res.'.$short.'.'.$uripath}=	$acchash{'acc.res.'.$short.'.'.$uripath}=
'&'.$urifile.':'.$uricond.'&';	'&'.$urifile.':'.$uricond.'&';
}	}
	}
} split(/\,/,$hash{$_});	} split(/\,/,$hash{$_});
}	}
} keys %hash;	} keys %hash;