--- loncom/interface/lonhelp.pm	2013/12/18 01:23:21	1.42
+++ 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.42 2013/12/18 01:23:21 raeburn Exp $
+# $Id: lonhelp.pm,v 1.49 2023/04/06 17:36:12 raeburn Exp $
 #
 # .tex help system web server handler
 #
@@ -71,9 +71,17 @@ sub servetext {
                                            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 = '<a href="javascript:history.go(-1);" class="LC_menubuttons_link" title="Go Back">'.
+                  '<img src="'.$backicon.'" alt="'.&mt('Go Back').'" class="LC_icon" border="0" />'.
+                  '</a>&nbsp;';
+    }
     $r->print(<<HEADER);
     <h3 style="font: sans-serif"><img align="right" alt="help logo"
-    src="/adm/help/gif/lonhelpheader.gif" />$lt{'header'}</h3><hr />
+    src="/adm/help/gif/lonhelpheader.gif" />$goback$lt{'header'}</h3><hr />
     <!-- BEGIN -->
 HEADER
     if ($is_mobile) {
@@ -102,7 +110,7 @@ HEADER
     </fieldset>
     </form>
     </div>
-    <div class=""LC_left_float">
+    <div class="LC_left_float">
     </div>
     <div style="padding:0;clear:both;margin:0;border:0"></div>
 $bugs
@@ -150,7 +158,7 @@ sub render {
              '\\begin{html}<a href="/adm/help/'.
               $label .
               $ext . 
-             '"><img src="'.$icon.'" border="0" /></a>' .
+             '"><img src="'.$icon.'" border="0" alt="'.&mt('Help').'" /></a>' .
              '\\end{html}'
              |gxe;
 
@@ -172,6 +180,8 @@ sub render {
     # Fix the pretty quotes
     $tex =~ s/('')|(``)/&quot;/g; #" to get emacs syntax highlighter happy
 
+    $tex =~ s/`/'/g;
+
     # For some reason all captions come out as "Figure 0:", so
     # just duck the issue...
 
@@ -228,16 +238,26 @@ sub handler {
      if ($env{'form.searchterm'}=~/\w/) {
         $caller = 'search';
      }
-     my $starthash = {
-           only_body   => 1,
-           add_entries => {
-                            'onload' => "javascript:expand_div('$caller');",
-                          },
-     };
 
+     my $starthash;
+
+     if ($env{'browser.mobile'}) {
+         $starthash = {
+                        only_body   => 1,
+                        add_entries => {
+                                         'onload' => "javascript:expand_div('$caller');",
+                                       },
+                      };
+     } else {
+         $starthash = {
+                        only_body   => 1,
+                      };
+     }
      my $firstfile;
+     $env{'form.texengine'} = 'tth';
      my $start_page=
 	 &Apache::loncommon::start_page('LON-CAPA Help',undef,$starthash);
+     delete($env{'form.texengine'});
      my $text='';
      my $uri = $r->uri;
      if ($env{'form.searchterm'}=~/\w/) {
@@ -268,6 +288,7 @@ sub handler {
 	 $filenames =~ s/:/,/g;
 	 my @files = split(/,/, $filenames);
          $firstfile = '/adm/help/'.$files[0].'.hlp';
+         my $count = 0;
 
 	 for my $filename (@files) {
 	     if (-e $docroot.'/adm/help/tex/'.
@@ -279,6 +300,10 @@ sub handler {
 					   . '/adm/help/tex/'.$filename.'.tex'))
 	         or return HTTP_NOT_FOUND;
 	     $tex .= join('', <$file>);
+             $count ++;
+             if (scalar(@files) > $count) {
+                 $tex .= '\hrulefill';
+             }
 	 }
 
 	 $text = &render($tex, $docroot);