--- modules/gci/lonlogin.pm 2021/02/11 21:38:26 1.14 +++ modules/gci/lonlogin.pm 2024/04/15 23:57:21 1.17 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.14 2021/02/11 21:38:26 gci Exp $ +# $Id: lonlogin.pm,v 1.17 2024/04/15 23:57:21 gci Exp $ # # Copyright Michigan State University Board of Trustees # @@ -83,7 +83,7 @@ sub handler { &Apache::loncommon::end_page(); my $dest = '/adm/roles'; if ($env{'form.role'}) { - $dest .= '?selectrole=1&'.$env{'form.role'}.'=1'; + $dest .= '?selectrole=1&'.$env{'form.role'}.'=1'; } if ($env{'form.symb'}) { $dest .= ($dest =~ /\?/) ? '&' : '?'; @@ -115,7 +115,7 @@ sub handler { my $textbrowsers=$r->dir_config('lonTextBrowsers'); my $httpbrowser=$ENV{"HTTP_USER_AGENT"}; - + foreach (split(/\:/,$textbrowsers)) { if ($httpbrowser=~/$_/i) { $env{'form.interface'}='textual'; @@ -772,7 +772,7 @@ ENDBLOCK sub forgotpwdisplay { my (%lt) = @_; - my $prompt_for_resetpw = 1; + my $prompt_for_resetpw = 1; if ($prompt_for_resetpw) { return '
   '.$lt{'forgotpw'}.'
'; }