--- loncom/interface/lonhelp.pm 2013/12/18 01:23:21 1.42 +++ loncom/interface/lonhelp.pm 2017/04/01 13:55:32 1.46 @@ -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.46 2017/04/01 13:55:32 raeburn Exp $ # # .tex help system web server handler # @@ -102,7 +102,7 @@ HEADER -
+
$bugs @@ -150,7 +150,7 @@ sub render { '\\begin{html}' . + '">'.&mt('Help').'' . '\\end{html}' |gxe; @@ -172,6 +172,8 @@ sub render { # Fix the pretty quotes $tex =~ s/('')|(``)/"/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,13 +230,21 @@ 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; my $start_page= &Apache::loncommon::start_page('LON-CAPA Help',undef,$starthash); @@ -268,6 +278,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 +290,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);