version 1.156, 2014/05/17 21:43:55
|
version 1.157, 2014/06/17 23:22:10
|
Line 473 sub handler {
|
Line 473 sub handler {
|
} |
} |
$env{'request.filename'} = $r->filename; |
$env{'request.filename'} = $r->filename; |
$env{'request.noversionuri'} = &Apache::lonnet::deversion($requrl); |
$env{'request.noversionuri'} = &Apache::lonnet::deversion($requrl); |
my $suppext; |
my ($suppext,$checkabsolute); |
if ($requrl =~ m{^/adm/wrapper/ext/}) { |
if ($requrl =~ m{^/adm/wrapper/ext/}) { |
my $query = $r->args; |
my $query = $r->args; |
if ($query) { |
if ($query) { |
Line 494 sub handler {
|
Line 494 sub handler {
|
$env{'request.external.querystring'} = $preserved; |
$env{'request.external.querystring'} = $preserved; |
} |
} |
} |
} |
|
if ($env{'request.course.id'}) { |
|
$checkabsolute = 1; |
|
} |
} elsif ($env{'request.course.id'} && |
} elsif ($env{'request.course.id'} && |
(($requrl =~ m{^/adm/$match_domain/$match_username/aboutme$}) || |
(($requrl =~ m{^/adm/$match_domain/$match_username/aboutme$}) || |
($requrl =~ m{^/public/$cdom/$cnum/syllabus$}))) { |
($requrl =~ m{^/public/$cdom/$cnum/syllabus$}))) { |
Line 508 sub handler {
|
Line 511 sub handler {
|
} |
} |
} |
} |
} |
} |
|
if ($requrl =~ m{^/public/$cdom/$cnum/syllabus$}) { |
|
$checkabsolute = 1; |
|
} |
|
} |
|
if ($checkabsolute) { |
|
my $hostname = $r->hostname(); |
|
my $lonhost = &Apache::lonnet::host_from_dns($hostname); |
|
if ($lonhost) { |
|
my $actual = &Apache::lonnet::absolute_url($hostname); |
|
my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname; |
|
unless ($actual eq $expected) { |
|
$env{'request.use_absolute'} = $expected; |
|
} |
|
} |
} |
} |
# -------------------------------------------------------- Load POST parameters |
# -------------------------------------------------------- Load POST parameters |
|
|