loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.154, 2018/07/04 16:58:19	version 1.155, 2018/11/10 10:53:01
Line 298 sub failed {	Line 298 sub failed {
$retry .= (($retry=~/\?/)?'&':'?').'symb='.$symb;	$retry .= (($retry=~/\?/)?'&':'?').'symb='.$symb;
}	}
}	}
	if (exists($form->{firsturl})) {
	my $firsturl = &Apache::loncommon::cleanup_html($form->{firsturl});
	if ($firsturl ne '') {
	$retry .= (($retry=~/\?/)?'&':'?').'firsturl='.$firsturl;
	}
	}
my $end_page = &Apache::loncommon::end_page();	my $end_page = &Apache::loncommon::end_page();
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
Line 442 sub handler {	Line 448 sub handler {
if ($iptokenstr) {	if ($iptokenstr) {
$iptokenstr = &unescape($iptokenstr);	$iptokenstr = &unescape($iptokenstr);
}	}
	if ($firsturl =~ m{^/tiny/$match_domain/\w+$}) {
	$form{'firsturl'} = $firsturl;
	}
if ($rolestr =~ /^role=/) {	if ($rolestr =~ /^role=/) {
(undef,$form{'role'}) = split('=',$rolestr);	(undef,$form{'role'}) = split('=',$rolestr);
}	}