--- loncom/interface/lonpreferences.pm 2008/05/14 18:21:40 1.119 +++ loncom/interface/lonpreferences.pm 2009/09/16 21:04:27 1.125.6.2 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.119 2008/05/14 18:21:40 www Exp $ +# $Id: lonpreferences.pm,v 1.125.6.2 2009/09/16 21:04:27 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -108,9 +108,14 @@ sub wysiwygchanger { } my $switchoff=&mt('Disable WYSIWYG editor'); my $switchon=&mt('Enable WYSIWYG editor'); + my $warning=''; + if ($env{'user.adv'}) { + $warning.="

".&mt("The WYSIWYG editor only supports simple HTML and is in many cases unsuited for advanced authoring. In a number of cases, it may destroy advanced authoring involving LaTeX and script function calls.")."

"; + } $r->print(< +$warning

@@ -171,9 +176,10 @@ sub verify_and_change_languages { $message=&mt('Set new preferred languages to ').'"'.$newlanguage.'".'; } else { &Apache::lonnet::del('environment',['languages']); - &Apache::lonnet::delenv('environment\.languages'); + &Apache::lonnet::delenv('environment.languages'); $message=&mt('Reset preferred language.'); } + &Apache::loncommon::flush_langs_cache($user,$domain); $r->print(< 'Default', - 'tth' => 'TeX to HTML', + 'tth' => 'tth (TeX to HTML)', #'ttm' => 'TeX to MathML', 'jsMath' => 'jsMath', - 'mimetex' => 'Convert to Images' + 'mimetex' => 'mimetex (Convert to Images)' ); my $selectionbox=&Apache::loncommon::select_form($texengine,'texengine', %mathchoices); my $jsMath_start=&Apache::lontexconvert::jsMath_header(); - my $change=&mt('Change'); - $r->print(< + my %lt=&Apache::lonlocal::texthash( + 'headline' => 'Change Math Preferences', + 'preftxt' => 'Preferred method to display Math', + 'change' => 'Change', + 'exmpl' => 'Examples', + 'jsmath' => 'jsMath:', + 'tth' => 'tth (TeX to HTML):', + 'mimetex' => 'mimetex (Convert to Images):', + ); + $r->print(<$lt{'headline'}
-

$pref: $selectionbox

-

-
-Examples: -

TeX to HTML
- +

+$lt{'preftxt'}:
+$selectionbox

-

jsMath
+ +
+

+$lt{'exmpl'} + +

$lt{'jsmath'}

+

$jsMath_start - - + +

+

$lt{'mimetex'}

+

+

-

Convert to Images
-
- + +

$lt{'tth'}

+

+

ENDLSCREEN if ($env{'environment.texengine'} ne 'jsMath') { - $r->print(''); + $r->print(''); } } @@ -265,7 +286,7 @@ sub verify_and_change_texengine { $message=&mt('Set new preferred math display to ').'"'.$newtexengine.'".'; } else { &Apache::lonnet::del('environment',['texengine']); - &Apache::lonnet::delenv('environment\.texengine'); + &Apache::lonnet::delenv('environment.texengine'); $message=&mt('Reset preferred math display.'); } @@ -404,7 +425,7 @@ sub verify_and_change_rolespref { $message=&mt('Recent '.$role.'s Hotlist is Enabled'); } else { &Apache::lonnet::del('environment',['recentroles']); - &Apache::lonnet::delenv('environment\.recentroles'); + &Apache::lonnet::delenv('environment.recentroles'); $message=&mt('Recent '.$role.'s Hotlist is Disabled'); } if ($hotlist_n) { @@ -499,7 +520,7 @@ sub verify_and_change_screenname { $message=&mt('Set new screenname to ').'"'.$newscreen.'.".'; } else { &Apache::lonnet::del('environment',['screenname']); - &Apache::lonnet::delenv('environment\.screenname'); + &Apache::lonnet::delenv('environment.screenname'); $message=&mt('Reset screenname.'); } # Nickname @@ -512,7 +533,7 @@ sub verify_and_change_screenname { $message.=&mt('Set new nickname to ').'"'.$newscreen.'".'; } else { &Apache::lonnet::del('environment',['nickname']); - &Apache::lonnet::delenv('environment\.nickname'); + &Apache::lonnet::delenv('environment.nickname'); $message.=&mt('Reset nickname.'); } &Apache::lonnet::devalidate_cache_new('namescache',$user.':'.$domain); @@ -618,25 +639,19 @@ sub domcoordchanger { my $user = $env{'user.name'}; my $domain = $env{'user.domain'}; my %userenv = &Apache::lonnet::get - ('environment',['domcoord.author','domcoord.cc']); + ('environment',['domcoord.author']); my $constchecked=''; - my $courseschecked=''; if ($userenv{'domcoord.author'} eq 'blocked') { $constchecked='checked="checked"'; } - if ($userenv{'domcoord.cc'} eq 'blocked') { - $courseschecked='checked="checked"'; - } - my $text=&mt('By default, the Domain Coordinator can enter your courses and construction space.'); + my $text=&mt('By default, the Domain Coordinator can enter your construction space.'); my $construction=&mt('Block access to construction space'); - my $courses=&mt('Block access to courses'); my $change=&mt('Change'); $r->print(< $text

-
ENDSCREEN @@ -646,12 +661,10 @@ sub verify_and_change_domcoord { my $r = shift; my $user = $env{'user.name'}; my $domain = $env{'user.domain'}; - my %domcoord=('domcoord.author' => '','domcoord.cc' => ''); + my %domcoord=('domcoord.author' => ''); if ($env{'form.construction'}) { $domcoord{'domcoord.author'}='blocked'; } - if ($env{'form.courses'}) { $domcoord{'domcoord.cc'}='blocked'; } &Apache::lonnet::put('environment',\%domcoord); - &Apache::lonnet::appenv({'environment.domcoord.author' => $domcoord{'domcoord.author'}, - 'environment.domcoord.cc' => $domcoord{'domcoord.cc'}}); + &Apache::lonnet::appenv({'environment.domcoord.author' => $domcoord{'domcoord.author'}}); $r->print(&mt('Registering Domain Coordinator access restrictions.')); } @@ -723,7 +736,7 @@ sub msgforwardchanger { my %allnot = &get_notifications(\%userenv); my $validatescript = &Apache::lonhtmlcommon::javascript_valid_email(); my $jscript = qq| -