--- loncom/interface/lonhelp.pm	2014/04/23 17:57:57	1.44
+++ 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.44 2014/04/23 17:57:57 bisitz 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) {
@@ -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...
 
@@ -244,8 +254,10 @@ sub handler {
                       };
      }
      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/) {
@@ -276,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/'.
@@ -287,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);