loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.925.2.8, 2010/01/16 15:57:51	version 1.925.2.9, 2010/01/16 19:56:54
Line 10703 sub new_roles_update {	Line 10703 sub new_roles_update {
next unless ($envkey =~ /^user\.role\./);	next unless ($envkey =~ /^user\.role\./);
$rolecount ++;	$rolecount ++;
}	}
	my $newrolecount = 0;
if (!$rolecount) {	if (!$rolecount) {
my %userenv;	my %userenv;
foreach my $crstype ('official','unofficial','community') {	foreach my $crstype ('official','unofficial','community') {
Line 10726 sub new_roles_update {	Line 10727 sub new_roles_update {
&Apache::lonnet::set_arearole($role,$where,$tstart,$tend,	&Apache::lonnet::set_arearole($role,$where,$tstart,$tend,
$env{'user.domain'},$env{'user.name'});	$env{'user.domain'},$env{'user.name'});
$userroles{'user.role.'.$spec} = $tstart.'.'.$tend;	$userroles{'user.role.'.$spec} = $tstart.'.'.$tend;
	$newrolecount ++;
unless (grep(/^\Q$role\E$/,@newroles)) {	unless (grep(/^\Q$role\E$/,@newroles)) {
push(@newroles,$role);	push(@newroles,$role);
}	}
Line 10746 sub new_roles_update {	Line 10748 sub new_roles_update {
}	}
&Apache::lonnet::appenv(\%userenv);	&Apache::lonnet::appenv(\%userenv);
}	}
return;	return $newrolecount;
}	}

# --- Get the symbolic name of a problem and the url	# --- Get the symbolic name of a problem and the url