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-2012 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="'.htmlspecialchars($lang_words[$j]). '" id="words_ary_'
  65         . $j . '" /> <label for="words_ary_' . $j .'">'
  66         . htmlspecialchars($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  */