--- loncom/interface/lonhelp.pm 2006/07/18 21:55:24 1.32
+++ loncom/interface/lonhelp.pm 2023/04/06 17:36:12 1.49
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonhelp.pm,v 1.32 2006/07/18 21:55:24 albertel Exp $
+# $Id: lonhelp.pm,v 1.49 2023/04/06 17:36:12 raeburn Exp $
#
# .tex help system web server handler
#
@@ -57,42 +57,68 @@ sub processLabelName {
# Serve out the text
sub servetext {
- my ($r,$text) = @_;
- my $bugs=&Apache::loncommon::help_open_bug('Documentation','Report a documentation bug');
- my $morehelp;#=&Apache::loncommon::help_open_menu(undef,undef,1,undef,undef,undef,undef,'Help and Assistance Menu');
- my $start_page=
- &Apache::loncommon::start_page('LON-CAPA Help',undef,
- {'only_body' => 1,});
- my $end_page=
- &Apache::loncommon::end_page();
- my $header=&mt('LON-CAPA Help');
+ my ($r,$uri,$text,$is_mobile,$firstfile) = @_;
+ my $bugs;
+ my %helpconfig = &Apache::lonnet::get_dom('configuration',['helpsettings'],
+ $env{'request.role.domain'});
+ if (ref($helpconfig{'helpsettings'}) eq 'HASH') {
+ if ($helpconfig{'helpsettings'}{'submitbugs'} eq '1') {
+ $bugs = &Apache::loncommon::help_open_bug('Documentation',&mt('Report a documentation bug'));
+ }
+ }
+ my %lt = &Apache::lonlocal::texthash(
+ header => 'LON-CAPA Help',
+ search => 'Search LON-CAPA help',
+ query => 'Search',
+ );
+ my $goback;
+ if ((($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) ||
+ (($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self'))) {
+ my $backicon = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL').'/').'clickhere.gif';
+ $goback = ' ';
+ }
$r->print(<