8 * This module displays available dictionaries to the user and lets
9 * him/her choose which ones s/he wants to check messages with.
11 * @author Konstantin Riabitsev <icon at duke.edu>
12 * @copyright 1999-2009 The SquirrelMail Project Team
13 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
16 * @subpackage squirrelspell
22 . _("Please check any available international dictionaries which you would like to use when spellchecking:")
24 . '<form method="post">'
25 . '<input type="hidden" name="MOD" value="lang_change" />'
28 * Present a nice listing.
30 $langs = sqspell_getSettings();
31 $add = '<p><label for="lang_default">'
32 . _("Make this dictionary my default selection:")
33 . "</label> <select name=\"lang_default\" id=\"lang_default\">\n";
34 while (list($avail_lang, $junk) = each($SQSPELL_APP)){
35 $msg .= "<input type=\"checkbox\" name=\"use_langs[]\" "
36 . "value=\"$avail_lang\" id=\"use_langs_$avail_lang\"";
37 if (in_array($avail_lang, $langs)) {
38 $msg .= ' checked="checked"';
40 $msg .= ' /> <label for="use_langs_' . $avail_lang . '">'
41 . _($avail_lang) . "</label><br />\n";
43 if ($avail_lang==$langs[0]) {
44 $add .= ' selected="selected"';
46 $add .= " value=\"$avail_lang\" >" . _($avail_lang) . "</option>\n";
48 $msg .= "</p>\n" . $add . "</select>\n";
49 $msg .= "</p></blockquote><p><input type=\"submit\" value=\" "
50 . _("Make these changes") . " \" /></p>";
51 sqspell_makePage(_("Add International Dictionaries"), null, $msg);