loncom/interface/lonhelp.pm - diff

Return to lonhelp.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.44, 2014/04/23 17:57:57	version 1.46, 2017/04/01 13:55:32
Line 172 sub render {	Line 172 sub render {
# Fix the pretty quotes	# Fix the pretty quotes
$tex =~ s/('')\|(``)/"/g; #" to get emacs syntax highlighter happy	$tex =~ s/('')\|(``)/"/g; #" to get emacs syntax highlighter happy

	$tex =~ s/`/'/g;

# For some reason all captions come out as "Figure 0:", so	# For some reason all captions come out as "Figure 0:", so
# just duck the issue...	# just duck the issue...

Line 276 sub handler {	Line 278 sub handler {
$filenames =~ s/:/,/g;	$filenames =~ s/:/,/g;
my @files = split(/,/, $filenames);	my @files = split(/,/, $filenames);
$firstfile = '/adm/help/'.$files[0].'.hlp';	$firstfile = '/adm/help/'.$files[0].'.hlp';
	my $count = 0;

for my $filename (@files) {	for my $filename (@files) {
if (-e $docroot.'/adm/help/tex/'.	if (-e $docroot.'/adm/help/tex/'.
Line 287 sub handler {	Line 290 sub handler {
. '/adm/help/tex/'.$filename.'.tex'))	. '/adm/help/tex/'.$filename.'.tex'))
or return HTTP_NOT_FOUND;	or return HTTP_NOT_FOUND;
$tex .= join('', <$file>);	$tex .= join('', <$file>);
	$count ++;
	if (scalar(@files) > $count) {
	$tex .= '\hrulefill';
	}
}	}

$text = &render($tex, $docroot);	$text = &render($tex, $docroot);