version 1.26, 2006/05/23 18:13:07
|
version 1.28, 2006/06/26 22:22:00
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
|
# |
|
# $Id$ |
|
# |
# .tex help system web server handler |
# .tex help system web server handler |
# |
# |
# Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
Line 24
|
Line 27
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# .tex file help handler |
# .tex file help handler |
# YEAR=2002 |
|
# 7/4 Jeremy Bowers |
|
|
|
package Apache::lonhelp; |
package Apache::lonhelp; |
|
|
Line 40 use Apache::lonlocal;
|
Line 42 use Apache::lonlocal;
|
use Apache::lonnet; |
use Apache::lonnet; |
use tth(); |
use tth(); |
use GDBM_File(); |
use GDBM_File(); |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
|
|
# This sub takes the name of a label in, and converts it to something |
# This sub takes the name of a label in, and converts it to something |
# that is a valid anchor name. |
# that is a valid anchor name. |
Line 186 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 199 sub handler {
|
Line 204 sub handler {
|
$text=&listmatches($docroot,$env{'form.searchterm'}); |
$text=&listmatches($docroot,$env{'form.searchterm'}); |
} |
} |
} else { |
} else { |
my $filenames = &Apache::lonnet::unescape(substr ($ENV{'REQUEST_URI'} , |
my $filenames = &unescape(substr ($ENV{'REQUEST_URI'} , |
rindex($ENV{'REQUEST_URI'}, '/') + 1, -4)); |
rindex($ENV{'REQUEST_URI'}, '/') + 1, -4)); |
|
|
# Security check on the file; the whole filename must consist |
# Security check on the file; the whole filename must consist |
Line 228 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); |
} |
} |
|
|