loncom/interface/lonhelp.pm - diff

Return to lonhelp.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.45, 2016/08/20 14:28:52	version 1.46.2.1, 2024/07/01 23:40:56
Line 246 sub handler {	Line 246 sub handler {
};	};
}	}
my $firstfile;	my $firstfile;
	$env{'form.texengine'} = 'tth';
my $start_page=	my $start_page=
&Apache::loncommon::start_page('LON-CAPA Help',undef,$starthash);	&Apache::loncommon::start_page('LON-CAPA Help',undef,$starthash);
	delete($env{'form.texengine'});
my $text='';	my $text='';
my $uri = $r->uri;	my $uri = $r->uri;
if ($env{'form.searchterm'}=~/\w/) {	if ($env{'form.searchterm'}=~/\w/) {
Line 278 sub handler {	Line 280 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 289 sub handler {	Line 292 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);