--- loncom/interface/lonsyllabus.pm 2020/01/20 17:21:08 1.138.2.5.2.2 +++ loncom/interface/lonsyllabus.pm 2020/01/14 00:57:54 1.147 @@ -1,7 +1,7 @@ # The LearningOnline Network # Syllabus # -# $Id: lonsyllabus.pm,v 1.138.2.5.2.2 2020/01/20 17:21:08 raeburn Exp $ +# $Id: lonsyllabus.pm,v 1.147 2020/01/14 00:57:54 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -185,13 +185,6 @@ sub handler { } } elsif ($external=~/\w/) { unless ($allowed && $forceedit) { - if (($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public') && - ($ENV{'SERVER_PORT'} == 443) && ($external =~ m{^http://}) && !($env{'form.usehttp'})) { - unless (&Apache::lonnet::uses_sts()) { - &redirect_to_http($r); - return OK; - } - } if ($target eq 'tex') { $r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}). ' \strut \\\\ \textbf{'.&mt('Syllabus').'} \strut \\\\ '.$external.' '. @@ -316,7 +309,14 @@ sub handler { my $hostname = &Apache::lonnet::hostname($homeserver); my $protocol = $Apache::lonnet::protocol{$homeserver}; $protocol = 'http' if ($protocol ne 'https'); - my $link = $protocol.'://'.$hostname.$r->uri; + my $link = $r->uri; + if (($protocol eq 'https') && ($external =~ m{^http://})) { + unless (&Apache::lonnet::uses_sts()) { + $link .= '?usehttp=1'; + $protocol = 'http'; + } + } + $link = $protocol.'://'.$hostname.$link; $r->print('
' .'' .'' @@ -1315,8 +1315,8 @@ sub save_changes { &mt('An error occurred storing the external URL: [_1]',$putres). '
'; } - $is_ext = $external; } + $is_ext = $external; } else { $output = '
'. &mt('External URL not saved -- invalid URL.'). @@ -1721,17 +1721,5 @@ sub editbutton_js { ENDJS } -sub redirect_to_http { - my ($r) = @_; - &Apache::loncommon::content_type($r,'text/html'); - &Apache::loncommon::no_cache($r); - $r->send_http_header; - my $url = 'http://'.$r->hostname().$r->uri().'?usehttp=1'; - $r->print(&Apache::loncommon::start_page(undef,undef, - {'redirect' => [0,$url],}). - &Apache::loncommon::end_page()); - return; -} - 1; __END__