--- modules/gci/lonlogin.pm 2020/03/18 19:42:53 1.13
+++ modules/gci/lonlogin.pm 2023/03/22 16:32:51 1.16
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Login Screen
#
-# $Id: lonlogin.pm,v 1.13 2020/03/18 19:42:53 gci Exp $
+# $Id: lonlogin.pm,v 1.16 2023/03/22 16:32:51 gci Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -30,7 +30,7 @@ package Apache::lonlogin;
use strict;
use Apache::Constants qw(:common);
-use Apache::File ();
+use Apache::File();
use Apache::lonnet;
use Apache::loncommon();
use Apache::lonauth();
@@ -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 =~ /\?/) ? '&' : '?';
@@ -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'}.'
';
}