loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.356, 2011/09/01 02:32:50	version 1.357, 2011/09/01 02:47:51
Line 1322 ENDNOTOOLSPRIV	Line 1322 ENDNOTOOLSPRIV
$addrolesdisplay = &new_coauthor_roles($r,$ccuname,$ccdomain);	$addrolesdisplay = &new_coauthor_roles($r,$ccuname,$ccdomain);
}	}
if ($context eq 'domain') {	if ($context eq 'domain') {
my $add_domainroles = &new_domain_roles($r);	my $add_domainroles = &new_domain_roles($r,$ccdomain);
if (!$addrolesdisplay) {	if (!$addrolesdisplay) {
$addrolesdisplay = $add_domainroles;	$addrolesdisplay = $add_domainroles;
}	}
Line 1765 sub new_coauthor_roles {	Line 1765 sub new_coauthor_roles {
}	}

sub new_domain_roles {	sub new_domain_roles {
my ($r) = @_;	my ($r,$ccdomain) = @_;
my $addrolesdisplay = 0;	my $addrolesdisplay = 0;
#	#
# Domain level	# Domain level
Line 1783 sub new_domain_roles {	Line 1783 sub new_domain_roles {
foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) {	foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) {
foreach my $role (@allroles) {	foreach my $role (@allroles) {
next if ($role eq 'ad');	next if ($role eq 'ad');
	next if (($role eq 'au') && ($ccdomain ne $thisdomain));
if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) {	if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) {
my $plrole=&Apache::lonnet::plaintext($role);	my $plrole=&Apache::lonnet::plaintext($role);
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(