--- wiki.pl Thu Sep 11 08:21:02 2003
+++ wiki-ASCIIMathML.pl Wed Nov 10 15:41:24 2004
@@ -53,7 +53,7 @@
@IsbnNames @IsbnPre @IsbnPost $EmailFile $FavIcon $RssDays $UserHeader
$UserBody $StartUID $ParseParas $AuthorFooter $UseUpload $AllUpload
$UploadDir $UploadUrl $LimitFileUrl $MaintTrimRc $SearchButton
- $EditNameLink $UseMetaWiki @ImageSites $BracketImg );
+ $EditNameLink $UseMetaWiki @ImageSites $BracketImg $ASCIIMathML);
# Note: $NotifyDefault is kept because it was a config variable in 0.90
# Other global variables:
use vars qw(%Page %Section %Text %InterSite %SaveUrl %SaveNumUrl
@@ -86,6 +86,7 @@
$AdminPass = ""; # Set to non-blank to enable password(s)
$EditPass = ""; # Like AdminPass, but for editing only
$StyleSheet = ""; # URL for CSS stylesheet (like "/wiki.css")
+$ASCIIMathML = "/ASCIIMathML.js"; # The ASCIIMathML javascript file
$NotFoundPg = ""; # Page for not-found links ("" for blank pg)
$EmailFrom = "Wiki"; # Text for "From: " field of email notes.
$SendMail = "/usr/sbin/sendmail"; # Full path to sendmail executable
@@ -1367,6 +1368,9 @@
if ($stylesheet ne '') {
$html .= qq(<LINK REL="stylesheet" HREF="$stylesheet">\n);
}
+ if ($ASCIIMathML ne '') {
+ $html .= qq(<script type="text/javascript" src="$ASCIIMathML"></script>\n);
+ }
$html .= $UserHeader;
$bodyExtra = '';
if ($UserBody ne '') {
@@ -1375,6 +1379,9 @@
if ($BGColor ne '') {
$bodyExtra .= qq( BGCOLOR="$BGColor");
}
+ if ($ASCIIMathML ne '') {
+ $bodyExtra .= qq( onLoad="translate()" );
+ }
$html .= "</HEAD><BODY$bodyExtra>\n";
return $html;
}
--SPathak