version 1.43, 2013/12/30 00:34:49
|
version 1.45, 2017/02/20 00:36:40
|
Line 36 use Apache::lonlocal;
|
Line 36 use Apache::lonlocal;
|
use Apache::lonnet; |
use Apache::lonnet; |
use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
use LONCAPA; |
use LONCAPA; |
|
use HTML::Entities(); |
|
|
sub handler { |
sub handler { |
my ($r) = @_; |
my ($r) = @_; |
Line 63 sub handler {
|
Line 64 sub handler {
|
} |
} |
my $faqbaseurl = $Apache::lonnet::perlvar{'FAQHost'}; |
my $faqbaseurl = $Apache::lonnet::perlvar{'FAQHost'}; |
my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
|
$origurl = &unescape($origurl); |
my $defdom; |
my $defdom; |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$defdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
$defdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
Line 83 sub handler {
|
Line 85 sub handler {
|
|
|
sub display_help_banner { |
sub display_help_banner { |
my ($r,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail,$stayOnPage) = @_; |
my ($r,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail,$stayOnPage) = @_; |
my $location=&Apache::loncommon::lonhttpdurl("/adm"); |
|
my $dom = $env{'request.role.domain'}; |
my $dom = $env{'request.role.domain'}; |
my $scripttag = ''; |
my $scripttag = ''; |
if ($requestmail) { |
if ($requestmail) { |
Line 224 sub helpmenu_items {
|
Line 225 sub helpmenu_items {
|
text => $lt{'manuals_pdf'}, |
text => $lt{'manuals_pdf'}, |
}, |
}, |
lastloc => { |
lastloc => { |
href => $origurl, |
href => &HTML::Entities::encode($origurl,'"&<>'), |
img => '/res/adm/pages/tolastloc.png', |
img => '/res/adm/pages/tolastloc.png', |
alt => $lt{'lastloc'}, |
alt => $lt{'lastloc'}, |
text => $lt{'lastloc'}, |
text => $lt{'lastloc'}, |
Line 241 sub helpmenu_items {
|
Line 242 sub helpmenu_items {
|
my %help_submenu = ( |
my %help_submenu = ( |
manuals_web => [ |
manuals_web => [ |
['/adm/help/course.manual.access.hlp','Course Coordination','course'], |
['/adm/help/course.manual.access.hlp','Course Coordination','course'], |
['/adm/help/course.manual.access.hlp','Authoring','author'], |
['/adm/help/author.manual.access.hlp','Authoring','author'], |
], |
], |
manuals_pdf => [ |
manuals_pdf => [ |
['/adm/help/course.manual.pdf','Course Coordination','course'], |
['/adm/help/course.manual.pdf','Course Coordination','course'], |
['/adm/help/course.manual.pdf','Authoring','author'], |
['/adm/help/author.manual.pdf','Authoring','author'], |
], |
], |
); |
); |
my @order = ('general'); |
my @order = ('general'); |