|
version 1.138.2.8.2.2, 2023/01/21 21:34:08
|
version 1.153, 2022/10/29 14:47:00
|
|
Line 317 sub handler {
|
Line 317 sub handler {
|
| if ($allowed) { |
if ($allowed) { |
| #---------------------------------- Print External URL Syllabus Info if editing |
#---------------------------------- Print External URL Syllabus Info if editing |
| if ($target ne 'tex') { |
if ($target ne 'tex') { |
| my $hostname = &Apache::lonnet::hostname($homeserver); |
my $link = &Apache::lonnet::url_prefix($r,$cdom,$homeserver,'web'). |
| my $protocol = $Apache::lonnet::protocol{$homeserver}; |
$r->uri; |
| $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; |
|
| $r->print('<div class="LC_left_float">' |
$r->print('<div class="LC_left_float">' |
| .'<span class="LC_help_open_topic LC_info">' |
.'<span class="LC_help_open_topic LC_info">' |
| .'<span class="LC_info">' |
.'<span class="LC_info">' |
|
Line 770 sub get_breadcrumbs{
|
Line 766 sub get_breadcrumbs{
|
| my ($cdom,$cnum,$crstype,$args) = @_; |
my ($cdom,$cnum,$crstype,$args) = @_; |
| return unless (ref($args) eq 'HASH'); |
return unless (ref($args) eq 'HASH'); |
| if ($env{'form.folderpath'} =~ /^supplemental/) { |
if ($env{'form.folderpath'} =~ /^supplemental/) { |
| &Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom); |
&Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom); |
| my $title = $env{'form.title'}; |
my $title = $env{'form.title'}; |
| if ($title eq '') { |
if ($title eq '') { |
| $title = &mt('Syllabus'); |
$title = &mt('Syllabus'); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonsyllabus.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface