[LON-CAPA-cvs] cvs: loncom /interface lonpreferences.pm

[www]

www		Tue Jun 10 10:49:07 2008 EDT

  Modified files:              
    /loncom/interface	lonpreferences.pm 
  Log:
  Consumer's advisory. This sort of addresses Bug #4552.
  
  
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.123 loncom/interface/lonpreferences.pm:1.124
--- loncom/interface/lonpreferences.pm:1.123	Wed May 28 19:50:53 2008
+++ loncom/interface/lonpreferences.pm	Tue Jun 10 10:49:07 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.123 2008/05/28 23:50:53 bisitz Exp $
+# $Id: lonpreferences.pm,v 1.124 2008/06/10 14:49:07 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -108,9 +108,14 @@
     }
     my $switchoff=&mt('Disable WYSIWYG editor');
     my $switchon=&mt('Enable WYSIWYG editor');
+    my $warning='';
+    if ($env{'user.adv'}) {
+       $warning.="<p>".&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.")."</p>";
+    }
     $r->print(<<ENDLSCREEN);
 <form name="prefs" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="set_wysiwyg" />
+$warning
 <br />
 <label><input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff</label><br />
 <label><input type="radio" name="wysiwyg" value="on" $offselect /> $switchon</label>