loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.308, 2014/05/31 12:49:12	version 1.309, 2014/12/14 21:47:48
Line 1650 sub check_fordc {	Line 1650 sub check_fordc {
my ($dcroles,$update,$then) = @_;	my ($dcroles,$update,$then) = @_;
my $numdc = 0;	my $numdc = 0;
if ($env{'user.adv'}) {	if ($env{'user.adv'}) {
foreach my $envkey (sort keys %env) {	foreach my $envkey (sort(keys(%env))) {
if ($envkey=~/^user\.role\.dc\.\/($match_domain)\/$/) {	if ($envkey=~/^user\.role\.dc\.\/($match_domain)\/$/) {
my $dcdom = $1;	my $dcdom = $1;
my $livedc = 1;	my $livedc = 1;