<?php
+/**
+ * edit_dic.mod
+ * -------------
+ * Squirrelspell module
+ *
+ * Copyright (c) 1999-2002 The SquirrelMail development team
+ * Licensed under the GNU GPL. For full terms see the file COPYING.
+ *
+ * This module lets the user edit his/her personal dictionary.
+ *
+ * $Id$
+ *
+ * @author Konstantin Riabitsev <icon@duke.edu> ($Author$)
+ * @version $Date
+ */
- /**
- ** EDIT_DIC.MOD.PHP -- Squirrelspell module
- **
- ** Copyright (c) 1999-2002 The SquirrelMail development team
- ** Licensed under the GNU GPL. For full terms see the file COPYING.
- **
- ** This module handles the encryption/decryption of the user dictionary
- ** if the user so chooses from the options page.
- **
- ** $Id$
- **/
-
- // fidian, you owe me a pack of Guinness! :)
- global $color;
- $words=sqspell_getWords();
- if (!$words){
- // Agt. Smith: "You're empty."
- // Neo: "So are you."
- sqspell_makePage(_("Personal Dictionary"), null, '<p>' . _("No words in your personal dictionary.") . '</p>');
- } else {
- // We're loaded with booty.
- $pre_msg = '<p>' . _("Please check any words you wish to delete from your dictionary.") . "</p>\n";
- $pre_msg .= "<table border=\"0\" width=\"95%\" align=\"center\">\n";
- $langs=sqspell_getSettings($words);
- for ($i=0; $i<sizeof($langs); $i++){
- $lang_words = sqspell_getLang($words, $langs[$i]);
- if ($lang_words){
- // No words in this dictionary.
- if (!$msg) {
- $msg = $pre_msg;
- }
- $msg .= "<tr bgcolor=\"$color[0]\" align=\"center\"><th>" .
- sprintf( _("%s dictionary"), $langs[$i] ) . '</th></tr>'.
- '<tr><td align="center">'.
- '<form method="post">'.
- '<input type="hidden" name="MOD" value="forget_me">'.
- '<input type="hidden" name="sqspell_use_app" value="' . $langs[$i] . '">'.
- '<table border="0" width="95%" align="center">'.
- '<tr>'.
- "<td valign=\"top\">\n";
- $words_ary=explode("\n", $lang_words);
- array_pop($words_ary);
- array_shift($words_ary);
- // Do some fancy stuff to separate the words into three columns.
- for ($j=0; $j<sizeof($words_ary); $j++){
- if ($j==intval(sizeof($words_ary)/3) || $j==intval(sizeof($words_ary)/3*2))
- $msg .= "</td><td valign=\"top\">\n";
- $msg .= "<input type=\"checkbox\" name=\"words_ary[]\" value=\"$words_ary[$j]\"> $words_ary[$j]<br>";
- }
- $msg .= '</td></tr></table></td></tr>' .
- "<tr bgcolor=\"$color[0]\" align=\"center\"><td>".
- '<input type="submit" value="' . _("Delete checked words") . '"></form>'.
- '</td></tr><tr><td><hr>'.
- "</td></tr>\n";
- }
- }
- // Check if all dictionaries were empty.
- if (!$msg) {
- $msg = '<p>' . _("No words in your personal dictionary.") . '</p>';
- } else {
- $msg .= '</table>';
- }
- sqspell_makePage(_("Edit your Personal Dictionary"), null, $msg);
+global $color;
+/**
+ * Get the user dictionary and see if it's empty or not.
+ */
+$words=sqspell_getWords();
+if (!$words){
+ /**
+ * Agt. Smith: "You're empty."
+ * Neo: "So are you."
+ */
+ sqspell_makePage(_("Personal Dictionary"), null,
+ '<p>' . _("No words in your personal dictionary.")
+ . '</p>');
+} else {
+ /**
+ * We're loaded with booty.
+ */
+ $pre_msg = '<p>'
+ . _("Please check any words you wish to delete from your dictionary.")
+ . "</p>\n";
+ $pre_msg .= "<table border=\"0\" width=\"95%\" align=\"center\">\n";
+ /**
+ * Get how many dictionaries this user has defined.
+ */
+ $langs=sqspell_getSettings($words);
+ for ($i=0; $i<sizeof($langs); $i++){
+ /**
+ * Get all words from this language dictionary.
+ */
+ $lang_words = sqspell_getLang($words, $langs[$i]);
+ if ($lang_words){
+ /**
+ * There are words in this dictionary. If this is the first
+ * language we're processing, prepend the output with the
+ * "header" message.
+ */
+ if (!$msg) {
+ $msg = $pre_msg;
+ }
+ $msg .= "<tr bgcolor=\"$color[0]\" align=\"center\"><th>"
+ . sprintf( _("%s dictionary"), $langs[$i] ) . '</th></tr>'
+ . '<tr><td align="center">'
+ . '<form method="post">'
+ . '<input type="hidden" name="MOD" value="forget_me">'
+ . '<input type="hidden" name="sqspell_use_app" value="'
+ . $langs[$i] . '">'
+ . '<table border="0" width="95%" align="center">'
+ . '<tr>'
+ . "<td valign=\"top\">\n";
+ $words_ary=explode("\n", $lang_words);
+ /**
+ * There are two lines we need to remove:
+ * 1st: # Language
+ * last: # End
+ */
+ array_pop($words_ary);
+ array_shift($words_ary);
+ /**
+ * Do some fancy stuff to separate the words into three
+ * columns.
+ */
+ for ($j=0; $j<sizeof($words_ary); $j++){
+ if ($j==intval(sizeof($words_ary)/3)
+ || $j==intval(sizeof($words_ary)/3*2)){
+ $msg .= "</td><td valign=\"top\">\n";
+ }
+ $msg .= "<input type=\"checkbox\" name=\"words_ary[]\" "
+ . "value=\"$words_ary[$j]\"> $words_ary[$j]<br>";
+ }
+ $msg .= '</td></tr></table></td></tr>'
+ . "<tr bgcolor=\"$color[0]\" align=\"center\"><td>".
+ . '<input type="submit" value="' . _("Delete checked words")
+ . '"></form>'
+ . '</td></tr><tr><td><hr>'
+ . "</td></tr>\n";
}
+ }
+ /**
+ * Check if all dictionaries were empty.
+ */
+ if (!$msg) {
+ $msg = '<p>' . _("No words in your personal dictionary.") . '</p>';
+ } else {
+ $msg .= '</table>';
+ }
+ sqspell_makePage(_("Edit your Personal Dictionary"), null, $msg);
+}
+
+/**
+ * For Emacs weenies:
+ * Local variables:
+ * mode: php
+ * End:
+ */
?>
projects / squirrelmail.git / blobdiff