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 &copy; 1999-2005 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]). '" /> '
  65         . htmlspecialchars($lang_words[$j]) . "<br />\n";
  66     }
  67     $msg .= '</td></tr></table></td></tr>'
  68       . "<tr bgcolor=\"$color[0]\" align=\"center\"><td>"
  69       . '<input type="submit" value="' . _("Delete checked words")
  70       . '" /></form>'
  71       . '</td></tr><tr><td><hr />'
  72       . "</td></tr>\n";
  73   }
  74 }
  75 /**
  76  * Check if all dictionaries were empty.
  77  */
  78 if (! isset($msg)) {
  79   $msg = '<p>' . _("No words in your personal dictionary.") . '</p>';
  80 } else {
  81   $msg .= '</table>';
  82 }
  83 sqspell_makePage(_("Edit your Personal Dictionary"), null, $msg);
  84
  85 /**
  86  * For Emacs weenies:
  87  * Local variables:
  88  * mode: php
  89  * End:
  90  * vim: syntax=php
  91  */
  92
  93 ?>