version 1.158.2.9.2.2, 2020/10/26 02:06:16
|
version 1.158.2.10, 2020/10/24 19:49:06
|
Line 51 sub handler {
|
Line 51 sub handler {
|
if (!defined($env{'form.firsturl'})) { |
if (!defined($env{'form.firsturl'})) { |
&Apache::lonacc::get_posted_cgi($r,['firsturl']); |
&Apache::lonacc::get_posted_cgi($r,['firsturl']); |
} |
} |
if (!defined($env{'form.firsturl'})) { |
|
if ($ENV{'REDIRECT_URL'} =~ m{^/+tiny/+$LONCAPA::match_domain/+\w+$}) { |
|
$env{'form.firsturl'} = $ENV{'REDIRECT_URL'}; |
|
} |
|
} |
|
|
|
# -- check if they are a migrating user |
# -- check if they are a migrating user |
if (defined($env{'form.token'})) { |
if (defined($env{'form.token'})) { |
Line 377 sub handler {
|
Line 372 sub handler {
|
next if ($hostid eq $lonhost); |
next if ($hostid eq $lonhost); |
my $hostname = &Apache::lonnet::hostname($hostid); |
my $hostname = &Apache::lonnet::hostname($hostid); |
next if (($hostname eq '') || ($spareservers{$hostname})); |
next if (($hostname eq '') || ($spareservers{$hostname})); |
$spareservers{$hostname} = 1; |
|
my $protocol = $Apache::lonnet::protocol{$hostid}; |
my $protocol = $Apache::lonnet::protocol{$hostid}; |
$protocol = 'http' if ($protocol ne 'https'); |
$protocol = 'http' if ($protocol ne 'https'); |
$spares.='<br /><a href="'.$protocol.'://'. |
$spares.='<br /><a href="'.$protocol.'://'. |