loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

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;