loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.435, 2017/03/19 18:06:23	version 1.436, 2017/03/26 22:11:54
Line 755 sub print_username_entry_form {	Line 755 sub print_username_entry_form {
}	}
} else {	} else {
my $actiontext = $lt{'srad'};	my $actiontext = $lt{'srad'};
	my $fixeddom;
if ($env{'form.action'} eq 'singlestudent') {	if ($env{'form.action'} eq 'singlestudent') {
if ($crstype eq 'Community') {	if ($crstype eq 'Community') {
$actiontext = $lt{'srme'};	$actiontext = $lt{'srme'};
Line 763 sub print_username_entry_form {	Line 764 sub print_username_entry_form {
}	}
} elsif ($env{'form.action'} eq 'accesslogs') {	} elsif ($env{'form.action'} eq 'accesslogs') {
$actiontext = $lt{'srva'};	$actiontext = $lt{'srva'};
	$fixeddom = 1;
} elsif (($env{'form.action'} eq 'singleuser') &&	} elsif (($env{'form.action'} eq 'singleuser') &&
($context eq 'domain') && (!&Apache::lonnet::allowed('mau',$defdom))) {	($context eq 'domain') && (!&Apache::lonnet::allowed('mau',$defdom))) {
$actiontext = $lt{'srvu'};	$actiontext = $lt{'srvu'};
Line 774 sub print_username_entry_form {	Line 776 sub print_username_entry_form {
'<br clear="all" />');	'<br clear="all" />');
}	}
}	}
$r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response,$crstype,1));	$r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response,$crstype,$fixeddom));
}	}
}	}