rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.99.2.1, 2006/02/23 08:38:54	version 1.102, 2006/02/22 22:36:34
Line 364 sub traceroute {	Line 364 sub traceroute {
}	}
if (defined($hash{'conditions_'.$rid})) {	if (defined($hash{'conditions_'.$rid})) {
$hash{'conditions_'.$rid}=simplify(	$hash{'conditions_'.$rid}=simplify(
'('.$hash{'conditions_'.$rid}.')\|('.$sofar.')');	'('.'conditions_'.$rid.')\|('.$sofar.')');
} else {	} else {
$hash{'conditions_'.$rid}=$sofar;	$hash{'conditions_'.$rid}=$sofar;
}	}
$newsofar=$hash{'conditions_'.$rid};	$newsofar='conditions_'.$rid;
if (defined($hash{'is_map_'.$rid})) {	if (defined($hash{'is_map_'.$rid})) {
if (defined($hash{'map_start_'.$hash{'src_'.$rid}})) {	if (defined($hash{'map_start_'.$hash{'src_'.$rid}})) {
$sofar=$newsofar=	$sofar=$newsofar=
Line 445 sub accinit {	Line 445 sub accinit {
foreach (split(/\,/,$hash{$_})) {	foreach (split(/\,/,$hash{$_})) {
my $resid=$_;	my $resid=$_;
my $uri=$hash{'src_'.$resid};	my $uri=$hash{'src_'.$resid};
$uri=~s/^\/adm\/wrapper//;	my ($uripath,$urifile) =
$uri=&Apache::lonnet::declutter($uri);	&Apache::lonnet::split_uri_for_cond($uri);
my @uriparts=split(/\//,$uri);
my $urifile=$uriparts[$#uriparts];
$#uriparts--;
my $uripath=join('/',@uriparts);
if ($uripath) {	if ($uripath) {
my $uricond='0';	my $uricond='0';
if (defined($hash{'conditions_'.$resid})) {	if (defined($hash{'conditions_'.$resid})) {