X-Git-Url: https://vcs.fsf.org/?p=squirrelmail.git;a=blobdiff_plain;f=plugins%2Fsquirrelspell%2Fmodules%2Flang_setup.mod;h=74fc24b6b1d64d8e27241715108f6721b24352c9;hp=25013f8bc6bb4ad8669e36614a62b494cc028882;hb=e9eecda9e6d6e4a494c47698855cc3d260b94733;hpb=76911253eb850bacde3d86c8cb7b4af072e67ebe

diff --git a/plugins/squirrelspell/modules/lang_setup.mod b/plugins/squirrelspell/modules/lang_setup.mod
index 25013f8b..74fc24b6 100644
--- a/plugins/squirrelspell/modules/lang_setup.mod
+++ b/plugins/squirrelspell/modules/lang_setup.mod
@@ -1,59 +1,60 @@
 <?php
+
 /**
  * lang_setup.mod
- * ---------------
- * Squirrelspell module
- *
- * Copyright (c) 1999-2003 The SquirrelMail development team
- * Licensed under the GNU GPL. For full terms see the file COPYING.
  *
- * This module displays available dictionaries to the user and lets 
- * him/her choose which ones s/he wants to check messages with.     
+ * Squirrelspell module
  *
- * $Id$
+ * This module displays available dictionaries to the user and lets
+ * him/her choose which ones s/he wants to check messages with.
  *
- * @author Konstantin Riabitsev <icon@duke.edu> ($Author$)
- * @version $Date$
+ * @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>'
   . _("Please check any available international dictionaries which you would like to use when spellchecking:")
   . '</p>'
   . '<form method="post">'
-  . '<input type="hidden" name="MOD" value="lang_change">'
+  . '<input type="hidden" name="MOD" value="lang_change" />'
+  . '<input type="hidden" name="smtoken" value="' . sm_generate_security_token() . '" />'
   . '<blockquote><p>';
 /**
  * Present a nice listing.
  */
-$langs = sqspell_getSettings(null);
-$add = '<p>'
+$langs = sqspell_getSettings();
+$add = '<p><label for="lang_default">'
   . _("Make this dictionary my default selection:")
-  . " <select name=\"lang_default\">\n";
+  . "</label> <select name=\"lang_default\" id=\"lang_default\">\n";
 while (list($avail_lang, $junk) = each($SQSPELL_APP)){
   $msg .= "<input type=\"checkbox\" name=\"use_langs[]\" "
-    . "value=\"$avail_lang\"";
+    . "value=\"$avail_lang\" id=\"use_langs_$avail_lang\"";
   if (in_array($avail_lang, $langs)) {
-    $msg .= ' checked';
+    $msg .= ' checked="checked"';
   }
-  $msg .= '> ' . _($avail_lang) . "<br>\n";
+  $msg .= ' /> <label for="use_langs_' . $avail_lang . '">'
+    . _($avail_lang) . "</label><br />\n";
   $add .= "<option";
   if ($avail_lang==$langs[0]) {
-    $add .= ' selected';
+    $add .= ' selected="selected"';
   }
   $add .= " value=\"$avail_lang\" >" . _($avail_lang) . "</option>\n";
 }
 $msg .= "</p>\n" . $add . "</select>\n";
-$msg .= "</p></blockquote><p><input type=\"submit\" value=\" " 
-  . _("Make these changes") . " \"></p>";
-sqspell_makePage(_("Add International Dictionaries"), null, $msg); 
+$msg .= "</p></blockquote><p><input type=\"submit\" value=\" "
+  . _("Make these changes") . " \" /></p></form>";
+sqspell_makePage(_("Add International Dictionaries"), null, $msg);
 
 /**
  * For Emacs weenies:
  * Local variables:
  * mode: php
  * End:
+ * vim: syntax=php
  */
- 
-?>