add labels to make checkboxes better clickable
[squirrelmail.git] / plugins / squirrelspell / modules / lang_setup.mod
CommitLineData
849bdf42 1<?php
4b4abf93 2
d112ed5a 3/**
4 * lang_setup.mod
d112ed5a 5 *
4b4abf93 6 * Squirrelspell module
d112ed5a 7 *
91e0dccc 8 * This module displays available dictionaries to the user and lets
9 * him/her choose which ones s/he wants to check messages with.
d112ed5a 10 *
4b4abf93 11 * @author Konstantin Riabitsev <icon at duke.edu>
47ccfad4 12 * @copyright &copy; 1999-2006 The SquirrelMail Project Team
4b4abf93 13 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
44d661aa 14 * @version $Id$
15 * @package plugins
16 * @subpackage squirrelspell
d112ed5a 17 */
91e0dccc 18
d112ed5a 19global $SQSPELL_APP;
91e0dccc 20
d112ed5a 21$msg = '<p>'
22 . _("Please check any available international dictionaries which you would like to use when spellchecking:")
23 . '</p>'
24 . '<form method="post">'
04fa3c41 25 . '<input type="hidden" name="MOD" value="lang_change" />'
d112ed5a 26 . '<blockquote><p>';
27/**
28 * Present a nice listing.
29 */
7996c920 30$langs = sqspell_getSettings();
d4e2e61a 31$add = '<p><label for="lang_default">'
d112ed5a 32 . _("Make this dictionary my default selection:")
d4e2e61a 33 . "</label> <select name=\"lang_default\" id=\"lang_default\">\n";
d112ed5a 34while (list($avail_lang, $junk) = each($SQSPELL_APP)){
35 $msg .= "<input type=\"checkbox\" name=\"use_langs[]\" "
d4e2e61a 36 . "value=\"$avail_lang\" id=\"use_langs_$avail_lang\"";
d112ed5a 37 if (in_array($avail_lang, $langs)) {
5f75494f 38 $msg .= ' checked="checked"';
d112ed5a 39 }
d4e2e61a 40 $msg .= ' /> <label for="use_langs_' . $avail_lang . '">'
41 . _($avail_lang) . "</label><br />\n";
d112ed5a 42 $add .= "<option";
43 if ($avail_lang==$langs[0]) {
5f75494f 44 $add .= ' selected="selected"';
d112ed5a 45 }
46 $add .= " value=\"$avail_lang\" >" . _($avail_lang) . "</option>\n";
47}
48$msg .= "</p>\n" . $add . "</select>\n";
91e0dccc 49$msg .= "</p></blockquote><p><input type=\"submit\" value=\" "
04fa3c41 50 . _("Make these changes") . " \" /></p>";
91e0dccc 51sqspell_makePage(_("Add International Dictionaries"), null, $msg);
d112ed5a 52
53/**
54 * For Emacs weenies:
55 * Local variables:
56 * mode: php
57 * End:
2b6b400e 58 * vim: syntax=php
d112ed5a 59 */