Some changes. En-route. Most likely broken. ;)
[squirrelmail.git] / plugins / squirrelspell / modules / lang_setup.mod
CommitLineData
849bdf42 1<?php
d112ed5a 2/**
3 * lang_setup.mod
4 * ---------------
5 * Squirrelspell module
6 *
7 * Copyright (c) 1999-2002 The SquirrelMail development team
8 * Licensed under the GNU GPL. For full terms see the file COPYING.
9 *
10 * This module displays available dictionaries to the user and lets
11 * him/her choose which ones s/he wants to check messages with.
12 *
13 * $Id$
14 *
15 * @author Konstantin Riabitsev <icon@duke.edu> ($Author$)
16 * @version $Date$
17 */
2b5a7157 18
d112ed5a 19global $SQSPELL_APP;
2b5a7157 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">'
25 . '<input type="hidden" name="MOD" value="lang_change">'
26 . '<blockquote><p>';
27/**
28 * Present a nice listing.
29 */
30$langs = sqspell_getSettings(null);
31$add = '<p>'
32 . _("Make this dictionary my default selection:")
33 . " <select name=\"lang_default\">\n";
34while (list($avail_lang, $junk) = each($SQSPELL_APP)){
35 $msg .= "<input type=\"checkbox\" name=\"use_langs[]\" "
36 . "value=\"$avail_lang\"";
37 if (in_array($avail_lang, $langs)) {
38 $msg .= ' checked';
39 }
40 $msg .= '> ' . _($avail_lang) . "<br>\n";
41 $add .= "<option";
42 if ($avail_lang==$langs[0]) {
43 $add .= ' selected';
44 }
45 $add .= " value=\"$avail_lang\" >" . _($avail_lang) . "</option>\n";
46}
47$msg .= "</p>\n" . $add . "</select>\n";
48$msg .= "</p></blockquote><p><input type=\"submit\" value=\" "
49 . _("Make these changes") . " \"></p>";
50sqspell_makePage(_("Add International Dictionaries"), null, $msg);
51
52/**
53 * For Emacs weenies:
54 * Local variables:
55 * mode: php
56 * End:
57 */
849bdf42 58
15e6162e 59?>