--- loncom/interface/lonhelp.pm 2003/07/15 18:50:43 1.6 +++ loncom/interface/lonhelp.pm 2006/03/15 21:55:58 1.20 @@ -35,50 +35,63 @@ use Apache::File(); use Apache::loncommon(); use Apache::lonacc(); use Apache::lontexconvert(); +use Apache::lonnavmaps; # for advancedUser +use Apache::lonlocal; +use Apache::lonnet; 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. -sub processLabelName -{ + +sub processLabelName { my ($name) = @_; $name =~ tr/a-zA-Z0-9/_/cs; return $name; } -# Serve out the Tex -sub serveTex -{ - my ($tex, $r) = @_; - -$r->print(< +# Serve out the text +sub servetext { + my ($r,$text) = @_; + my $html=&Apache::lonxml::xmlbegin(); + my $htmlend=&Apache::lonxml::xmlend(); + my $bugs=&Apache::loncommon::help_open_bug('Documentation'); + my $header=&mt('LON-CAPA Help'); + $r->print(< LON-CAPA Help

LON-CAPA Help

+ src="/adm/help/gif/lonhelpheader.gif"/>$header
$bugs HEADER - $r->print($tex); + $r->print($text); -$r->print(<print(< -
-
About - LON-CAPA help and More Help
+
+$search:
+$about - +$htmlend FOOTER + } + $r->print(< + +$htmlend +ENDBODY } # Render takes a tex fragment, transforms it for TtH, and returns the # HTML equivalent -sub render -{ +sub render { my ($tex, $docroot, $serverroot) = @_; tie (my %fragmentLabels, 'GDBM_File', $docroot . '/adm/help/fragmentLabels.gdbm', 0, 0); @@ -90,9 +103,13 @@ sub render # LaTeX .aux files # absolute paths for use with help.loncapa.org $tex =~ s| \\ref\{([^}]*)\} - |'\\begin{html}' . '\\end{html}' |gxe; @@ -107,7 +124,7 @@ sub render |gxe; - $tex=&Apache::lontexconvert::converted(\$tex); + $tex=&Apache::lontexconvert::tth_converted(\$tex); # Finish backslashes $tex =~ s/###BACKSLASH###/'\\'/ge; @@ -125,58 +142,65 @@ sub render return $tex; } -sub handler -{ +sub handler { my $r = shift; my $docroot = $r->dir_config('lonDocRoot'); my $serverroot = $ENV{'HTTP_HOST'}; - my $filenames = substr ($ENV{'REQUEST_URI'} , - rindex($ENV{'REQUEST_URI'}, '/') + 1, -4); - + my $filenames = &Apache::lonnet::unescape(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 HTTP_NOT_FOUND if ($filenames !~ /\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'}) { - $r->content_type('text/xml'); + if ($env{'browser.mathml'}) { + &Apache::loncommon::content_type($r,'text/xml'); &tth::ttminit(); - if ($ENV{'browser.unicode'}) { + if ($env{'browser.unicode'}) { &tth::ttmoptions('-L -u1'); } else { &tth::ttmoptions('-L -u0'); } } else { - $r->content_type("text/html"); + &Apache::loncommon::content_type($r,"text/html"); &tth::tthinit(); - if ($ENV{'browser.unicode'}) { + if ($env{'browser.unicode'}) { &tth::tthoptions('-L -u1'); } else { &tth::tthoptions('-L -u0'); } } - $tex = render($tex, $docroot, $serverroot); - serveTex($tex, $r); - + $r->send_http_header; + my $text = &render($tex, $docroot, $serverroot); + &servetext($r,$text); return OK; }