modules/gci/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / modules / gci

version 1.14, 2021/02/11 21:38:26	version 1.16, 2023/03/22 16:32:51
Line 83 sub handler {	Line 83 sub handler {
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();
my $dest = '/adm/roles';	my $dest = '/adm/roles';
if ($env{'form.role'}) {	if ($env{'form.role'}) {
$dest .= '?selectrole=1&'.$env{'form.role'}.'=1';	$dest .= '?selectrole=1&'.$env{'form.role'}.'=1';
}	}
if ($env{'form.symb'}) {	if ($env{'form.symb'}) {
$dest .= ($dest =~ /\?/) ? '&' : '?';	$dest .= ($dest =~ /\?/) ? '&' : '?';
Line 772 ENDBLOCK	Line 772 ENDBLOCK

sub forgotpwdisplay {	sub forgotpwdisplay {
my (%lt) = @_;	my (%lt) = @_;
my $prompt_for_resetpw = 1;	my $prompt_for_resetpw = 1;
if ($prompt_for_resetpw) {	if ($prompt_for_resetpw) {
return '<br />   <a href="/adm/resetpw"><b>'.$lt{'forgotpw'}.'</b></a><br />';	return '<br />   <a href="/adm/resetpw"><b>'.$lt{'forgotpw'}.'</b></a><br />';
}	}