Happy New Year

[squirrelmail.git] / plugins / squirrelspell / modules / lang_setup.mod

diff --git a/plugins/squirrelspell/modules/lang_setup.mod b/plugins/squirrelspell/modules/lang_setup.mod
index 36c445d69179401099f4dfd610a165cb653de917..81c34395f8a4773fa26416308c709b8925e9eebc 100644 (file)
--- a/plugins/squirrelspell/modules/lang_setup.mod
+++ b/plugins/squirrelspell/modules/lang_setup.mod
@@ -1,53 +1,55 @@
 <?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-2020 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:
@@ -56,5 +58,3 @@ sqspell_makePage(_("Add International Dictionaries"), null, $msg);
  * End:
  * vim: syntax=php
  */
- 
-?>