[LON-CAPA-cvs] cvs: loncom /interface lonhelp.pm

[raeburn]

raeburn		Sat Apr  1 13:55:33 2017 EDT

  Modified files:              
    /loncom/interface	lonhelp.pm 
  Log:
  - Horizontal rule between text from each help file, where displayed help is
    an aggregate of multiple help items.
  
  
Index: loncom/interface/lonhelp.pm
diff -u loncom/interface/lonhelp.pm:1.45 loncom/interface/lonhelp.pm:1.46
--- loncom/interface/lonhelp.pm:1.45	Sat Aug 20 14:28:52 2016
+++ loncom/interface/lonhelp.pm	Sat Apr  1 13:55:32 2017
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonhelp.pm,v 1.45 2016/08/20 14:28:52 raeburn Exp $
+# $Id: lonhelp.pm,v 1.46 2017/04/01 13:55:32 raeburn Exp $
 #
 # .tex help system web server handler
 #
@@ -278,6 +278,7 @@
 	 $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/'.
@@ -289,6 +290,10 @@
 					   . '/adm/help/tex/'.$filename.'.tex'))
 	         or return HTTP_NOT_FOUND;
 	     $tex .= join('', <$file>);
+             $count ++;
+             if (scalar(@files) > $count) {
+                 $tex .= '\hrulefill';
+             }
 	 }
 
 	 $text = &render($tex, $docroot);