version 1.4, 2002/08/09 14:48:31
|
version 1.5, 2003/02/25 22:50:11
|
Line 31 package Apache::lonhelp;
|
Line 31 package Apache::lonhelp;
|
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::File; |
use Apache::File(); |
use Apache::loncommon; |
use Apache::loncommon(); |
use tth; |
use Apache::lonacc(); |
use GDBM_File; |
use Apache::lontexconvert(); |
|
use tth(); |
|
use GDBM_File(); |
|
|
# 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 104 sub render
|
Line 106 sub render
|
' bordercolor="#000000"/>\\end{html}' |
' bordercolor="#000000"/>\\end{html}' |
|gxe; |
|gxe; |
|
|
$tex = tth::tth($tex); |
|
|
|
|
$tex=&Apache::lontexconvert::converted(\$tex); |
|
|
# Finish backslashes |
# Finish backslashes |
$tex =~ s/###BACKSLASH###/'\\'/ge; |
$tex =~ s/###BACKSLASH###/'\\'/ge; |
|
|
Line 116 sub render
|
Line 119 sub render
|
# just duck the issue... |
# just duck the issue... |
|
|
$tex =~ s/Figure 0://g; |
$tex =~ s/Figure 0://g; |
|
$tex.=$Apache::lontexconvert::errorstring; |
untie %fragmentLabels; |
untie %fragmentLabels; |
|
|
return $tex; |
return $tex; |
Line 136 sub handler
|
Line 139 sub handler
|
# of nothing but alphanums, ' ,, or ., or the file |
# of nothing but alphanums, ' ,, or ., or the file |
# will be "not found", no matter what. |
# will be "not found", no matter what. |
|
|
return 404 if ($filename !~ /\A[-0-9a-zA-z_'',.]+\Z/); |
return HTTP_NOT_FOUND if ($filename !~ /\A[-0-9a-zA-z_'',.]+\Z/); |
|
|
(my $file = Apache::File->new($docroot . "/adm/help/tex/".$filename.'.tex')) |
(my $file = Apache::File->new($docroot . "/adm/help/tex/".$filename.'.tex')) |
or return 404; |
or return HTTP_NOT_FOUND; |
|
|
|
# get me my environment if it exists |
|
&Apache::lonacc::handler($r); |
|
|
|
if ($ENV{'browser.mathml'}) { |
|
$r->content_type('text/xml'); |
|
&tth::ttminit(); |
|
if ($ENV{'browser.unicode'}) { |
|
&tth::ttmoptions('-L -u1'); |
|
} else { |
|
&tth::ttmoptions('-L -u0'); |
|
} |
|
} else { |
|
$r->content_type("text/html"); |
|
&tth::tthinit(); |
|
if ($ENV{'browser.unicode'}) { |
|
&tth::tthoptions('-L -u1'); |
|
} else { |
|
&tth::tthoptions('-L -u0'); |
|
} |
|
} |
|
|
my $tex = join('', <$file>); |
my $tex = join('', <$file>); |
$tex = render($tex, $docroot, $serverroot); |
$tex = render($tex, $docroot, $serverroot); |
$r->content_type("text/html"); |
|
serveTex($tex, $r); |
serveTex($tex, $r); |
|
|
return OK; |
return OK; |