--- loncom/interface/lonsyllabus.pm 2021/05/04 18:47:36 1.150 +++ loncom/interface/lonsyllabus.pm 2022/09/18 22:33:45 1.151 @@ -1,7 +1,7 @@ # The LearningOnline Network # Syllabus # -# $Id: lonsyllabus.pm,v 1.150 2021/05/04 18:47:36 raeburn Exp $ +# $Id: lonsyllabus.pm,v 1.151 2022/09/18 22:33:45 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -314,12 +314,8 @@ sub handler { if ($allowed) { #---------------------------------- Print External URL Syllabus Info if editing if ($target ne 'tex') { - my $hostname = &Apache::lonnet::hostname($homeserver); - my $protocol = $Apache::lonnet::protocol{$homeserver}; - $protocol = 'http' if ($protocol ne 'https'); - my $alias = &Apache::lonnet::use_proxy_alias($r,$homeserver); - $hostname = $alias if ($alias ne ''); - my $link = $protocol.'://'.$hostname.$r->uri; + my $link = &Apache::lonnet::url_prefix($r,$cdom,$homeserver,'web'). + $r->uri; $r->print('
' .'' .''