rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.4, 2000/08/22 15:26:28	version 1.5, 2000/08/23 13:02:58
Line 10	Line 10
# 7/1 Gerd Kortemeyer)	# 7/1 Gerd Kortemeyer)
# 7/1,7/3,7/4,7/7,7/8,7/10 Gerd Kortemeyer)	# 7/1,7/3,7/4,7/7,7/8,7/10 Gerd Kortemeyer)
#	#
# 7/15,7/17,7/18,8/1,8/2,8/4,8/5,8/21,8/22 Gerd Kortemeyer	# 7/15,7/17,7/18,8/1,8/2,8/4,8/5,8/21,8/22,8/23 Gerd Kortemeyer

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

Line 245 sub accinit {	Line 245 sub accinit {
my %acchash=();	my %acchash=();
my %captured=();	my %captured=();
my $condcounter=0;	my $condcounter=0;
$acchash{'acc.cond.0'}='0';	$acchash{'acc.cond.'.$short.'.0'}=0;
map {	map {
if ($_=~/^conditions/) {	if ($_=~/^conditions/) {
my $expr=$hash{$_};	my $expr=$hash{$_};
Line 265 sub accinit {	Line 265 sub accinit {
unless (defined($captured{$expr})) {	unless (defined($captured{$expr})) {
$condcounter++;	$condcounter++;
$captured{$expr}=$condcounter;	$captured{$expr}=$condcounter;
$acchash{'acc.cond.'.$condcounter}=$expr;	$acchash{'acc.cond.'.$short.'.'.$condcounter}=$expr;
}	}
}	}
} keys %hash;	} keys %hash;
Line 282 sub accinit {	Line 282 sub accinit {
} else {	} else {
$urifile.=':0';	$urifile.=':0';
}	}
if (defined($acchash{'acc.res.'.$uripath})) {	if (defined($acchash{'acc.res.'.$short.'.'.$uripath})) {
$acchash{'acc.res.'.$uripath}.=$urifile.'&';	$acchash{'acc.res.'.$short.'.'.$uripath}.=$urifile.'&';
} else {	} else {
$acchash{'acc.res.'.$uripath}='&'.$urifile.'&';	$acchash{'acc.res.'.$short.'.'.$uripath}='&'.$urifile.'&';
}	}
}	}
} keys %hash;	} keys %hash;