version 1.54, 2005/02/25 05:54:01
|
version 1.58, 2005/03/22 17:15:22
|
Line 172 sub verify_and_change_languages {
|
Line 172 sub verify_and_change_languages {
|
$message='Reset preferred language'; |
$message='Reset preferred language'; |
} |
} |
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
</p> |
|
$message |
$message |
ENDVCSCREEN |
ENDVCSCREEN |
} |
} |
Line 190 sub texenginechanger {
|
Line 189 sub texenginechanger {
|
my $pref=&mt('Preferred method to display Math'); |
my $pref=&mt('Preferred method to display Math'); |
my %mathchoices=('' => 'No Preference', |
my %mathchoices=('' => 'No Preference', |
'tth' => 'TeX to HTML', |
'tth' => 'TeX to HTML', |
#'ttm' => 'TeX to MathML', |
'ttm' => 'TeX to MathML', |
'jsMath' => 'jsMath', |
'jsMath' => 'jsMath', |
#'mimetex' => 'Convert to Images' |
'mimetex' => 'Convert to Images' |
); |
); |
my $selectionbox=&Apache::loncommon::select_form($texengine,'texengine', |
my $selectionbox=&Apache::loncommon::select_form($texengine,'texengine', |
%mathchoices); |
%mathchoices); |
Line 200 sub texenginechanger {
|
Line 199 sub texenginechanger {
|
my $jsMath_example=&Apache::lontexconvert::jsMath_converted(\$mathexample); |
my $jsMath_example=&Apache::lontexconvert::jsMath_converted(\$mathexample); |
$mathexample='$$\int\left(\frac{a+b}{c^6*d}\right)$$'; |
$mathexample='$$\int\left(\frac{a+b}{c^6*d}\right)$$'; |
my $tth_example=&Apache::lontexconvert::tth_converted(\$mathexample); |
my $tth_example=&Apache::lontexconvert::tth_converted(\$mathexample); |
|
$mathexample='$$\int\left(\frac{a+b}{c^6*d}\right)$$'; |
|
my $mimetex_example=&Apache::lontexconvert::mimetex_converted(\$mathexample); |
my $change=&mt('Change'); |
my $change=&mt('Change'); |
$r->print(<<ENDLSCREEN); |
$r->print(<<ENDLSCREEN); |
<form name="server" action="/adm/preferences" method="post"> |
<form name="server" action="/adm/preferences" method="post"> |
Line 209 sub texenginechanger {
|
Line 210 sub texenginechanger {
|
</form> |
</form> |
Examples: |
Examples: |
<p> TeX to HTML <br /> $tth_example</p> |
<p> TeX to HTML <br /> $tth_example</p> |
<script type"text/javascript">function NoFontMessage () { }</script> |
<script type="text/javascript">function NoFontMessage () { }</script> |
<script src="/adm/jsMath/jsMath.js"></script> |
<script src="/adm/jsMath/jsMath.js"></script> |
<p>jsMath <br /> |
<p>jsMath <br /> |
|
|
<script type"text/javascript"> |
<script type="text/javascript"> |
if (jsMath.nofonts == 1) { |
if (jsMath.nofonts == 1) { |
document.writeln |
document.writeln |
('<center><div style="padding: 10; border-style: solid; border-width:3;' |
('<center><div style="padding: 10; border-style: solid; border-width:3;' |
Line 231 if (jsMath.nofonts == 1) {
|
Line 232 if (jsMath.nofonts == 1) {
|
</script> |
</script> |
|
|
$jsMath_example</p> |
$jsMath_example</p> |
<script type="text/javascript">jsMath.Process()</script> |
<p> Convert to Images <br /> $mimetex_example</p> |
ENDLSCREEN |
ENDLSCREEN |
|
if ($ENV{'environment.texengine'} ne 'jsMath') { |
|
$r->print('<script type="text/javascript">jsMath.Process()</script>'); |
|
} |
} |
} |
|
|
|
|
Line 243 sub verify_and_change_texengine {
|
Line 247 sub verify_and_change_texengine {
|
# Screenname |
# Screenname |
my $newtexengine = $ENV{'form.texengine'}; |
my $newtexengine = $ENV{'form.texengine'}; |
$newtexengine=~s/[^\-\w]//g; |
$newtexengine=~s/[^\-\w]//g; |
|
if ($newtexengine eq 'ttm') { |
|
&Apache::lonnet::appenv('browser.mathml' => 1); |
|
} else { |
|
if ($ENV{'environment.texengine'} eq 'ttm') { |
|
&Apache::lonnet::appenv('browser.mathml' => 0); |
|
} |
|
} |
my $message=''; |
my $message=''; |
if ($newtexengine) { |
if ($newtexengine) { |
&Apache::lonnet::put('environment',{'texengine' => $newtexengine}); |
&Apache::lonnet::put('environment',{'texengine' => $newtexengine}); |
Line 253 sub verify_and_change_texengine {
|
Line 264 sub verify_and_change_texengine {
|
&Apache::lonnet::delenv('environment\.texengine'); |
&Apache::lonnet::delenv('environment\.texengine'); |
$message='Reset preferred math display.'; |
$message='Reset preferred math display.'; |
} |
} |
|
|
|
|
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
</p> |
|
$message |
$message |
ENDVCSCREEN |
ENDVCSCREEN |
} |
} |
Line 330 sub verify_and_change_rolespref {
|
Line 342 sub verify_and_change_rolespref {
|
} |
} |
|
|
$r->print(<<ENDRPSCREEN); |
$r->print(<<ENDRPSCREEN); |
</p> |
|
$message |
$message |
ENDRPSCREEN |
ENDRPSCREEN |
} |
} |
Line 392 sub verify_and_change_screenname {
|
Line 403 sub verify_and_change_screenname {
|
} |
} |
|
|
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
</p> |
|
$message |
$message |
ENDVCSCREEN |
ENDVCSCREEN |
} |
} |
Line 482 sub verify_and_change_msgforward {
|
Line 492 sub verify_and_change_msgforward {
|
$message.='Reset critical message notification<br />'; |
$message.='Reset critical message notification<br />'; |
} |
} |
$r->print(<<ENDVCMSG); |
$r->print(<<ENDVCMSG); |
</p> |
|
$message |
$message |
ENDVCMSG |
ENDVCMSG |
} |
} |
Line 605 sub verify_and_change_colors {
|
Line 614 sub verify_and_change_colors {
|
} |
} |
} |
} |
$r->print(<<ENDVCCOL); |
$r->print(<<ENDVCCOL); |
</p> |
|
$message |
$message |
<form name="client" action="/adm/preferences" method="post"> |
<form name="client" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="changecolors" /> |
<input type="hidden" name="action" value="changecolors" /> |
Line 960 sub verify_and_change_discussion {
|
Line 968 sub verify_and_change_discussion {
|
} |
} |
} |
} |
$r->print(<<ENDVCSCREEN); |
$r->print(<<ENDVCSCREEN); |
</p> |
|
$message |
$message |
ENDVCSCREEN |
ENDVCSCREEN |
} |
} |