--- loncom/interface/lonhelp.pm 2002/07/05 16:12:31 1.1 +++ loncom/interface/lonhelp.pm 2003/09/22 18:35:46 1.11 @@ -31,10 +31,14 @@ package Apache::lonhelp; use strict; use Apache::Constants qw(:common :http); -use Apache::File; -use Apache::loncommon; -use tth; -use GDBM_File; +use Apache::File(); +use Apache::loncommon(); +use Apache::lonacc(); +use Apache::lontexconvert(); +use Apache::lonnavmaps; # for advancedUser +use Apache::lonlocal; +use tth(); +use GDBM_File(); # This sub takes the name of a label in, and converts it to something # that is a valid anchor name. @@ -56,22 +60,37 @@ $r->print(<LON-CAPA Help +

LON-CAPA Help

+ HEADER $r->print($tex); + if (Apache::lonnavmaps::advancedUser()) { $r->print(< +
+
About + LON-CAPA help and More Help
+ + +FOOTER +} else { + $r->print(< FOOTER } +} # Render takes a tex fragment, transforms it for TtH, and returns the # HTML equivalent sub render { - my ($tex) = @_; - tie (my %fragmentLabels, 'GDBM_File', '/home/httpd/html/adm/help/fragmentLabels.gdbm', 0, 0); + my ($tex, $docroot, $serverroot) = @_; + tie (my %fragmentLabels, 'GDBM_File', $docroot . '/adm/help/fragmentLabels.gdbm', 0, 0); # This tells TtH what to do with captions, labels, and other # things @@ -79,50 +98,104 @@ sub render # We process these ourselves because TtH can't handle then without # LaTeX .aux files + # absolute paths for use with help.loncapa.org $tex =~ s| \\ref\{([^}]*)\} - |'\\href{' . + |'\\begin{html}' . + '\\end{html}' |gxe; + # Backslashes + $tex =~ s|\\textbackslash|###BACKSLASH###|g; + # Figures leftover without captions $tex =~ s| \\includegraphics(\[[^]]*\])*\{([^}]*)\} - | '\\begin{html}\\end{html}' |gxe; - $tex = tth::tth($tex); + + $tex=&Apache::lontexconvert::converted(\$tex); + + # Finish backslashes + $tex =~ s/###BACKSLASH###/'\\'/ge; + + # Fix the pretty quotes + $tex =~ s/('')|(``)/"/g; #" to get emacs syntax highlighter happy # For some reason all captions come out as "Figure 0:", so # just duck the issue... $tex =~ s/Figure 0://g; - + $tex.=$Apache::lontexconvert::errorstring; untie %fragmentLabels; return $tex; } -# UNCOMMENT FOR HANDLER ONLY sub handler { my $r = shift; - my $filename = substr ($ENV{'REQUEST_URI'} , + my $docroot = $r->dir_config('lonDocRoot'); + my $serverroot = $ENV{'HTTP_HOST'}; + + my $filenames = substr ($ENV{'REQUEST_URI'} , rindex($ENV{'REQUEST_URI'}, '/') + 1, -4); # Security check on the file; the whole filename must consist # of nothing but alphanums, ' ,, or ., or the file # will be "not found", no matter what. - return 404 if ($filename !~ /\A[-0-9a-zA-z_'',.]+\Z/); + return HTTP_NOT_FOUND if ($filenames !~ /\A[-0-9a-zA-z_'',:.]+\Z/); + + &Apache::lonlocal::get_language_handle($r); + + # Join together the tex files, return HTTP_NOT_FOUND if any of + # them are not found + my $tex = ''; + # Since in insertlist.tab I want to specify multiple files, + # and insertlist.tab also uses commas, I need something else + # so replace : with , + $filenames =~ s/:/,/g; + my @files = split(/,/, $filenames); + + for my $filename (@files) { + if (-e $docroot.'/adm/help/tex/'. + &Apache::lonlocal::current_language().'/'. + $filename.'.tex') { + $filename=&Apache::lonlocal::current_language().'/'.$filename; + } + (my $file = Apache::File->new($docroot + . '/adm/help/tex/'.$filename.'.tex')) + or return HTTP_NOT_FOUND; + $tex .= join('', <$file>); + } + + # get me my environment if it exists + &Apache::lonacc::handler($r); + + 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'); + } + } - (my $file = Apache::File->new("/home/httpd/html/adm/help/tex/".$filename.'.tex')) - or return 404; - my $tex = join('', <$file>); - $tex = render($tex); - $r->content_type("text/html"); + $tex = render($tex, $docroot, $serverroot); serveTex($tex, $r); return OK;