--- loncom/interface/lonpreferences.pm 2009/03/16 18:20:26 1.148 +++ loncom/interface/lonpreferences.pm 2009/04/25 16:53:13 1.152 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.148 2009/03/16 18:20:26 bisitz Exp $ +# $Id: lonpreferences.pm,v 1.152 2009/04/25 16:53:13 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -135,9 +135,8 @@ sub verify_and_change_wysiwyg { my $newsetting=$env{'form.wysiwyg'}; &Apache::lonnet::put('environment',{'wysiwygeditor' => $newsetting}); &Apache::lonnet::appenv({'environment.wysiwygeditor' => $newsetting}); -# $r->print('
'.&mt('Setting WYSIWYG editor to:').' '.&mt($newsetting).'
'); - print_main_menu($r,''.&mt('Setting WYSIWYG editor to:').' ' - .&mt($newsetting).'
'); + &print_main_menu($r,''.&Apache::lonhtmlcommon::confirm_success(&mt('Setting WYSIWYG editor to:').' ' + .&mt($newsetting)).'
'); } ################################################################ @@ -187,17 +186,14 @@ sub verify_and_change_languages { if ($newlanguage) { &Apache::lonnet::put('environment',{'languages' => $newlanguage}); &Apache::lonnet::appenv({'environment.languages' => $newlanguage}); - $message=&mt('Set new preferred languages to ').'"'.$newlanguage.'".'; + $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set new preferred languages to ').'"'.$newlanguage.'".'); } else { &Apache::lonnet::del('environment',['languages']); &Apache::lonnet::delenv('environment.languages'); - $message=&mt('Reset preferred language.'); + $message=&Apache::lonhtmlcommon::confirm_success(&mt('Reset preferred language.')); } &Apache::loncommon::flush_langs_cache($user,$domain); - print_main_menu($r, $message); -# $r->print(<