loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.444, 2017/08/07 20:22:13	version 1.445, 2017/08/10 21:14:58
Line 2145 sub new_domain_roles {	Line 2145 sub new_domain_roles {
'<th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'.	'<th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'.
&Apache::loncommon::end_data_table_header_row();	&Apache::loncommon::end_data_table_header_row();
my @allroles = &Apache::lonuserutils::roles_by_context('domain');	my @allroles = &Apache::lonuserutils::roles_by_context('domain');
	my $uprimary = &Apache::lonnet::domain($env{'request.role.domain'},'primary');
	my $uintdom = &Apache::lonnet::internet_dom($uprimary);
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));	next if (($role eq 'au') && ($ccdomain ne $thisdomain));
if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) {	if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) {
	if ($role eq 'dc') {
	unless ($thisdomain eq $env{'request.role.domain'}) {
	my $domprim = &Apache::lonnet::domain($thisdomain,'primary');
	my $intdom = &Apache::lonnet::internet_dom($domprim);
	next unless ($uintdom eq $intdom);
	}
	}
my $plrole=&Apache::lonnet::plaintext($role);	my $plrole=&Apache::lonnet::plaintext($role);
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'ssd' => "Set Start Date",	'ssd' => "Set Start Date",