version 1.172, 2018/12/17 21:43:05
|
version 1.174, 2018/12/29 23:24:52
|
Line 517 sub handler {
|
Line 517 sub handler {
|
my $preserved; |
my $preserved; |
foreach my $pair (split(/&/,$query)) { |
foreach my $pair (split(/&/,$query)) { |
my ($name, $value) = split(/=/,$pair); |
my ($name, $value) = split(/=/,$pair); |
unless ($name eq 'symb') { |
unless (($name eq 'symb') || ($name eq 'usehttp')) { |
$preserved .= $pair.'&'; |
$preserved .= $pair.'&'; |
} |
} |
if (($env{'request.course.id'}) && ($name eq 'folderpath')) { |
if (($env{'request.course.id'}) && ($name eq 'folderpath')) { |
Line 558 sub handler {
|
Line 558 sub handler {
|
my $lonhost = &Apache::lonnet::host_from_dns($hostname); |
my $lonhost = &Apache::lonnet::host_from_dns($hostname); |
if ($lonhost) { |
if ($lonhost) { |
my $actual = &Apache::lonnet::absolute_url($hostname); |
my $actual = &Apache::lonnet::absolute_url($hostname); |
|
my $exphostname = &Apache::lonnet::hostname($lonhost); |
my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname; |
my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname; |
unless ($actual eq $expected) { |
unless ($actual eq $expected) { |
$env{'request.use_absolute'} = $expected; |
$env{'request.use_absolute'} = $expected; |