loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.269.2.37, 2020/02/04 01:55:50	version 1.269.2.37.2.2, 2021/01/04 12:53:37
Line 209 sub handler {	Line 209 sub handler {
my $r = shift;	my $r = shift;

# Check for critical messages and redirect if present.	# Check for critical messages and redirect if present.
my ($redirect,$url) = &Apache::loncommon::critical_redirect(300);	my ($redirect,$url) = &Apache::loncommon::critical_redirect(300,'roles');
if ($redirect) {	if ($redirect) {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->header_out(Location => $url);	$r->header_out(Location => $url);
Line 495 sub handler {	Line 495 sub handler {
my $end_page=&Apache::loncommon::end_page();	my $end_page=&Apache::loncommon::end_page();
my $buttontext=&mt('Enter Course');	my $buttontext=&mt('Enter Course');
my $message=&mt('Successfully registered key');	my $message=&mt('Successfully registered key');
	my $ip = &Apache::lonnet::get_requestor_ip();
my $assignresult=	my $assignresult=
&Apache::lonnet::assign_access_key(	&Apache::lonnet::assign_access_key(
$env{'form.newkey'},	$env{'form.newkey'},
Line 503 sub handler {	Line 504 sub handler {
$env{'user.domain'},	$env{'user.domain'},
$env{'user.name'},	$env{'user.name'},
&mt('Assigned from [_1] at [_2] for [_3]'	&mt('Assigned from [_1] at [_2] for [_3]'
,$ENV{'REMOTE_ADDR'}	,$ip
,&Apache::lonlocal::locallocaltime()	,&Apache::lonlocal::locallocaltime()
,$trolecode)	,$trolecode)
);	);