--- loncom/interface/lonsyllabus.pm 2017/02/18 23:39:16 1.142 +++ loncom/interface/lonsyllabus.pm 2017/02/20 18:29:23 1.143 @@ -1,7 +1,7 @@ # The LearningOnline Network # Syllabus # -# $Id: lonsyllabus.pm,v 1.142 2017/02/18 23:39:16 raeburn Exp $ +# $Id: lonsyllabus.pm,v 1.143 2017/02/20 18:29:23 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -308,10 +308,12 @@ sub handler { if ($target ne 'tex') { my $protocol = $Apache::lonnet::protocol{$homeserver}; $protocol = 'http' if ($protocol ne 'https'); - my $link = $protocol.'://'.&Apache::lonnet::hostname($homeserver).$r->uri; + my $link = $r->uri; if (($protocol eq 'https') && ($external =~ m{^http://})) { $link .= '?usehttp=1'; + $protocol = 'http'; } + $link = $protocol.'://'.&Apache::lonnet::hostname($homeserver).$link; $r->print('
' .'' .'' @@ -747,6 +749,7 @@ ENDSCRIPT if ($env{'form.only_body'}) { $args->{'only_body'} = 1; } + $args->{'hostname'} = $r->hostname(); my $start_page = &Apache::loncommon::start_page("Syllabus", $rss_link.$js,$args); if ($start_page) {