version 1.2, 2002/07/08 20:47:41
|
version 1.4, 2002/08/09 14:48:31
|
Line 56 $r->print(<<HEADER);
|
Line 56 $r->print(<<HEADER);
|
<title>LON-CAPA Help</title> |
<title>LON-CAPA Help</title> |
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
|
<h3 style="font: sans-serif"><img align="right" |
|
src="/adm/help/gif/lonhelpheader.gif"/>LON-CAPA Help<hr /></h3> |
<!-- BEGIN --> |
<!-- BEGIN --> |
HEADER |
HEADER |
|
|
Line 63 HEADER
|
Line 65 HEADER
|
|
|
$r->print(<<FOOTER); |
$r->print(<<FOOTER); |
<!-- END --> |
<!-- END --> |
|
<hr /> |
|
<center><font size="-1"><a href="/adm/help/abouthelp.html">About |
|
LON-CAPA help and More Help</a></font></center> |
</body> |
</body> |
</html> |
</html> |
FOOTER |
FOOTER |
Line 90 sub render
|
Line 95 sub render
|
'\\end{html}' |
'\\end{html}' |
|gxe; |
|gxe; |
|
|
|
# Backslashes |
|
$tex =~ s|\\textbackslash|###BACKSLASH###|g; |
|
|
# Figures leftover without captions |
# Figures leftover without captions |
$tex =~ s| \\includegraphics(\[[^]]*\])*\{([^}]*)\} |
$tex =~ s| \\includegraphics(\[[^]]*\])*\{([^}]*)\} |
| '\\begin{html}<img src="http://' . $serverroot . '/adm/help/gif/' . $2 . '.gif" border="2"'. |
| '\\begin{html}<img src="http://' . $serverroot . '/adm/help/gif/' . $2 . '.gif" border="2"'. |
Line 98 sub render
|
Line 106 sub render
|
|
|
$tex = tth::tth($tex); |
$tex = tth::tth($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 |
# For some reason all captions come out as "Figure 0:", so |
# just duck the issue... |
# just duck the issue... |
|
|