Began rework of options page. Also added 3 plugins (filters, translate, and squirrels...
[squirrelmail.git] / plugins / squirrelspell / modules / lang_change.mod.php
1 <?php
2 /**
3 LANG_CHANGE.MOD.PHP
4 --------------------
5 This module changes the international dictionaries selection
6 for the user. Called after LANG_SETUP module.
7 **/
8 // For poor wretched souls with E_ALL.
9 global $use_langs, $lang_default, $SQSPELL_APP_DEFAULT;
10
11 $words = sqspell_getWords();
12 if (!$words) $words = sqspell_makeDummy();
13 $langs = sqspell_getSettings($words);
14 if (sizeof($use_langs)){
15 // See if the user clicked any options on the previous page.
16 if (sizeof($use_langs)>1){
17 // See if s/he wants more than one dictionary.
18 if ($use_langs[0]!=$lang_default){
19 // See if we need to juggle the order of the dictionaries
20 // to make the default dictionary first in line.
21 if (in_array($lang_default, $use_langs)){
22 // see if the user was dumb and chose a default dictionary
23 // to be something other than the ones he selected.
24 $hold = array_shift($use_langs);
25 $lang_string = join(", ", $use_langs);
26 $lang_string = str_replace("$lang_default", "$hold", $lang_string);
27 $lang_string = $lang_default . ", " . $lang_string;
28 } else {
29 // Yes, he is dumb.
30 $lang_string = join(", ", $use_langs);
31 }
32 } else {
33 // No need to juggle the order -- preferred is already first.
34 $lang_string = join(", ", $use_langs);
35 }
36 } else {
37 // Just one dictionary, please.
38 $lang_string = $use_langs[0];
39 }
40 $msg = "<p>Settings adjusted to: <strong>$lang_string</strong> with
41 <strong>$lang_default</strong> as default dictionary.</p>";
42 } else {
43 // No dictionaries selected. Use system default.
44 $msg = "<p>Using <strong>$SQSPELL_APP_DEFAULT</strong> dictionary (system default)
45 for spellcheck.</p>";
46 $lang_string = $SQSPELL_APP_DEFAULT;
47 }
48 $old_lang_string = join(", ", $langs);
49 $words = str_replace("# LANG: $old_lang_string", "# LANG: $lang_string", $words);
50 // write it down where the sun don't shine.
51 sqspell_writeWords($words);
52 sqspell_makePage("International Dictionaries Preferences Updated", null, $msg);
53 ?>