--- loncom/interface/lonsyllabus.pm 2022/01/01 21:06:33 1.138.2.8 +++ 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.138.2.8 2022/01/01 21:06:33 raeburn Exp $ +# $Id: lonsyllabus.pm,v 1.151 2022/09/18 22:33:45 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -178,7 +178,7 @@ sub handler { &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1); } $r->print(&Apache::lonwrapper::wrapper($r,$item,$brcrum,$env{'request.use_absolute'}, - undef,$is_pdf,&mt('Syllabus'))); + undef,$is_pdf,undef,'','',&mt('Syllabus'))); } } return OK; @@ -213,7 +213,7 @@ sub handler { &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1); } $r->print(&Apache::lonwrapper::wrapper($r,$external,$brcrum,$env{'request.use_absolute'}, - $is_ext,$is_pdf,&mt('Syllabus'))); + $is_ext,$is_pdf,undef,'','',&mt('Syllabus'))); } return OK; } @@ -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('
' .'' .''