Happy New Year
[squirrelmail.git] / plugins / squirrelspell / modules / edit_dic.mod
1 <?php
2
3 /**
4  * edit_dic.mod
5  *
6  * Squirrelspell module
7  *
8  * This module lets the user edit his/her personal dictionary.
9  *
10  * @author Konstantin Riabitsev <icon at duke.edu>
11  * @copyright 1999-2016 The SquirrelMail Project Team
12  * @license http://opensource.org/licenses/gpl-license.php GNU Public License
13  * @version $Id$
14  * @package plugins
15  * @subpackage squirrelspell
16  */
17
18 global $color;
19
20 $pre_msg = '<p>'
21   . _("Please check any words you wish to delete from your dictionary.")
22   . "</p>\n";
23 $pre_msg .= "<table border=\"0\" width=\"95%\" align=\"center\">\n";
24
25 /**
26  * Get how many dictionaries this user has defined.
27  */
28 $langs=sqspell_getSettings();
29
30 foreach ($langs as $lang) {
31   /**
32    * Get all words from this language dictionary.
33    */
34   $lang_words = sqspell_getLang($lang);
35   if (! empty($lang_words)){
36     /**
37      * There are words in this dictionary. If this is the first
38      * language we're processing, prepend the output with the
39      * "header" message.
40      */
41     if (!isset($msg) || !$msg) {
42       $msg = $pre_msg;
43     }
44     $msg .= "<tr bgcolor=\"$color[0]\" align=\"center\"><th>"
45       . sprintf( _("%s dictionary"), $lang ) . '</th></tr>'
46       . '<tr><td align="center">'
47       . '<form method="post">'
48       . '<input type="hidden" name="MOD" value="forget_me" />'
49       . '<input type="hidden" name="sqspell_use_app" value="'
50       . $lang . '" />'
51       . '<table border="0" width="95%" align="center">'
52       . '<tr>'
53       . "<td valign=\"top\">\n";
54     /**
55      * Do some fancy stuff to separate the words into three
56      * columns.
57      */
58     for ($j=0; $j<sizeof($lang_words); $j++){
59       if ($j==intval(sizeof($lang_words)/3)
60           || $j==intval(sizeof($lang_words)/3*2)){
61         $msg .= "</td><td valign=\"top\">\n";
62       }
63       $msg .= "<input type=\"checkbox\" name=\"words_ary[]\" "
64         . 'value="'.sm_encode_html_special_chars($lang_words[$j]). '" id="words_ary_'
65         . $j . '" /> <label for="words_ary_' . $j .'">'
66         . sm_encode_html_special_chars($lang_words[$j]) . "</label><br />\n";
67     }
68     $msg .= '</td></tr></table></td></tr>'
69       . "<tr bgcolor=\"$color[0]\" align=\"center\"><td>"
70       . '<input type="submit" value="' . _("Delete checked words")
71       . '" /></form>'
72       . '</td></tr><tr><td><hr />'
73       . "</td></tr>\n";
74   }
75 }
76 /**
77  * Check if all dictionaries were empty.
78  */
79 if (! isset($msg)) {
80   $msg = '<p>' . _("No words in your personal dictionary.") . '</p>';
81 } else {
82   $msg .= '</table>';
83 }
84 sqspell_makePage(_("Edit your Personal Dictionary"), null, $msg);
85
86 /**
87  * For Emacs weenies:
88  * Local variables:
89  * mode: php
90  * End:
91  * vim: syntax=php
92  */