Add ability to control the display of the "Check Spelling" button. Allows administrat...
[squirrelmail.git] / plugins / squirrelspell / modules / options_main.mod
index a559bcb0fcd28d3394943f4a73e634651e1c62d4..e84c842ccc74ac7ac4ec216b7550f3690de5f1be 100644 (file)
@@ -1,21 +1,28 @@
 <?php
+
 /**
  * options_main.mod
- * ----------------
+ *
  * Squirrelspell module
- * Copyright (c) 1999-2004 The SquirrelMail development team
- * Licensed under the GNU GPL. For full terms see the file COPYING.
  *
  * Default page called when accessing SquirrelSpell's options.
  *
- * @author Konstantin Riabitsev <icon@duke.edu>
+ * @author Konstantin Riabitsev <icon at duke.edu>
+ * @copyright 1999-2017 The SquirrelMail Project Team
+ * @license http://opensource.org/licenses/gpl-license.php GNU Public License
  * @version $Id$
  * @package plugins
  * @subpackage squirrelspell
  */
-    
-global $SQSPELL_APP;
-$msg = '<p>'
+
+global $SQSPELL_APP, $main_options_changed_message;
+
+if (!empty($main_options_changed_message))
+   $msg = $main_options_changed_message;
+else
+   $msg = '';
+
+$msg .= '<p>'
   . _("Please choose which options you wish to set up:")
   . '</p>'
   . '<ul>'
@@ -41,10 +48,31 @@ if (function_exists("mcrypt_generic")) {
     . "</a></li>\n";
 } else {
   $msg .= '<li>'
-    . _("Encrypt or decrypt your personal dictionary") . ' <em>(' 
-    . _("not available") . ')</em></li>';
+    . _("Personal dictionary encryption options are not available") 
+    . '</li>';
 }
 $msg .= "</ul>\n";
+
+
+
+// add checkbox to enable/disable the spellcheck button on compose screen
+//
+$sqspell_show_button = getPref($data_dir, $username, 'sqspell_show_button', 1);
+$msg .= '<form method="post">'
+  . '<input type="hidden" name="MOD" value="change_main_options" />'
+  . '<input type="hidden" name="smtoken" value="' . sm_generate_security_token() . '" />'
+  . '<p>'
+  . '<input type="checkbox" id="sqspell_show_button" name="sqspell_show_button" value="1"';
+if ($sqspell_show_button) {
+  $msg .= ' checked="checked"';
+}
+$msg .= ' /><label for="sqspell_show_button"> '
+     . sprintf(_("Show \"%s\" button when composing"), _("Check Spelling"))
+     . "</label>\n";
+$msg .= " <input type=\"submit\" value=\" "
+  . _("Make these changes") . " \" /></p></form>";
+
+
 sqspell_makePage( _("SquirrelSpell Options Menu"), null, $msg);
 
 /**
@@ -54,4 +82,3 @@ sqspell_makePage( _("SquirrelSpell Options Menu"), null, $msg);
  * End:
  * vim: syntax=php
  */
-?>