--- modules/gci/lonlogin.pm 2018/05/30 20:41:58 1.11
+++ 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.11 2018/05/30 20:41:58 gci Exp $
+# $Id: lonlogin.pm,v 1.17 2024/04/15 23:57:21 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();
@@ -63,7 +63,6 @@ sub handler {
$r->send_http_header;
return OK if $r->header_only;
-
# Are we re-routing?
if (-e '/home/httpd/html/lon-status/reroute.txt') {
&Apache::lonauth::reroute($r);
@@ -84,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 =~ /\?/) ? '&' : '?';
@@ -116,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';
@@ -632,12 +631,12 @@ END_OF_BLOCK2
Javascript must be enabled in your web browser in order to use this web site.