loncom/interface/lonhelp.pm - diff

Return to lonhelp.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.27, 2006/05/30 12:46:09	version 1.28, 2006/06/26 22:22:00
Line 191 sub handler {	Line 191 sub handler {
my $serverroot = $ENV{'HTTP_HOST'};	my $serverroot = $ENV{'HTTP_HOST'};

&Apache::lonlocal::get_language_handle($r);	&Apache::lonlocal::get_language_handle($r);
	&Apache::loncommon::content_type($r,"text/html");
my $text='';	my $text='';
if ($env{'form.searchterm'}=~/\w/) {	if ($env{'form.searchterm'}=~/\w/) {
&Apache::loncommon::content_type($r,"text/html");
($text,my $matches)=&listmatches($docroot,$env{'form.searchterm'},&Apache::lonlocal::current_language().'/');	($text,my $matches)=&listmatches($docroot,$env{'form.searchterm'},&Apache::lonlocal::current_language().'/');
if ($matches) {	if ($matches) {
my ($englishresult,$englishmatches)=&listmatches($docroot,$env{'form.searchterm'});	my ($englishresult,$englishmatches)=&listmatches($docroot,$env{'form.searchterm'});
Line 233 sub handler {	Line 233 sub handler {
or return HTTP_NOT_FOUND;	or return HTTP_NOT_FOUND;
$tex .= join('', <$file>);	$tex .= join('', <$file>);
}	}

if ($env{'browser.mathml'}) {
&Apache::loncommon::content_type($r,'text/xml');
&tth::ttminit();
if ($env{'browser.unicode'}) {
&tth::ttmoptions('-L -u1');
} else {
&tth::ttmoptions('-L -u0');
}
} else {
&Apache::loncommon::content_type($r,"text/html");
&tth::tthinit();
if ($env{'browser.unicode'}) {
&tth::tthoptions('-L -u1');
} else {
&tth::tthoptions('-L -u0');
}
}
$text = &render($tex, $docroot, $serverroot);	$text = &render($tex, $docroot, $serverroot);
}	}