--- loncom/auth/lonacc.pm 2018/12/17 21:43:05 1.172 +++ loncom/auth/lonacc.pm 2018/12/29 23:24:52 1.174 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.172 2018/12/17 21:43:05 raeburn Exp $ +# $Id: lonacc.pm,v 1.174 2018/12/29 23:24:52 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -517,7 +517,7 @@ sub handler { my $preserved; foreach my $pair (split(/&/,$query)) { my ($name, $value) = split(/=/,$pair); - unless ($name eq 'symb') { + unless (($name eq 'symb') || ($name eq 'usehttp')) { $preserved .= $pair.'&'; } if (($env{'request.course.id'}) && ($name eq 'folderpath')) { @@ -558,6 +558,7 @@ sub handler { my $lonhost = &Apache::lonnet::host_from_dns($hostname); if ($lonhost) { my $actual = &Apache::lonnet::absolute_url($hostname); + my $exphostname = &Apache::lonnet::hostname($lonhost); my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname; unless ($actual eq $expected) { $env{'request.use_absolute'} = $expected;