version 1.44, 2014/01/05 21:33:58
|
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'}, |