Some changes. En-route. Most likely broken. ;)

[squirrelmail.git] / plugins / squirrelspell / modules / lang_change.mod

diff --git a/plugins/squirrelspell/modules/lang_change.mod b/plugins/squirrelspell/modules/lang_change.mod
index 1a53d6016cea5332616dd9bf0c4258ebc6586549..d0ea2b424b2d6a57dde9898cc66141c951e5a37a 100644 (file)
--- a/plugins/squirrelspell/modules/lang_change.mod
+++ b/plugins/squirrelspell/modules/lang_change.mod
@@ -1,71 +1,99 @@
 <?php
+/**
+ * lang_change.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 changes the international dictionaries selection
+ * for the user. Called after LANG_SETUP module.                
+ *
+ * $Id$
+ *
+ * @author Konstantin Riabitsev <icon@duke.edu> ($Author$)
+ * @version $Date$
+ */
 
-   /**
-    **  LANG_CHANGE.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 changes the international dictionaries selection
-    **  for the user. Called after LANG_SETUP module.                
-    **
-    **  $Id$
-    **/
-
-    // For poor wretched souls with E_ALL.
-    global $use_langs, $lang_default, $SQSPELL_APP_DEFAULT;
-    
-    $words = sqspell_getWords();
-    if (!$words) {
-        $words = sqspell_makeDummy();
-    }
-    $langs = sqspell_getSettings($words);
-    if (sizeof($use_langs)){
-        // See if the user clicked any options on the previous page.
-        if (sizeof($use_langs)>1){
-            // See if s/he wants more than one dictionary.
-            if ($use_langs[0]!=$lang_default){
-                // See if we need to juggle the order of the dictionaries
-                // to make the default dictionary first in line.
-                if (in_array($lang_default, $use_langs)){
-                    // see if the user was dumb and chose a default dictionary
-                    // to be something other than the ones he selected.
-                    $hold = array_shift($use_langs);
-                    $lang_string = join(", ", $use_langs);
-                    $lang_string = str_replace("$lang_default", "$hold", $lang_string);
-                    $lang_string = $lang_default . ", " . $lang_string;
-                } else {
-                    // Yes, he is dumb.
-                    $lang_string = join(', ', $use_langs);
-                }
-            } else {
-                // No need to juggle the order -- preferred is already first.
-                $lang_string = join(', ', $use_langs);
-            }
-        } else {
-            // Just one dictionary, please.
-            $lang_string = $use_langs[0];
-        }
-        $lang_array = explode( ',', $lang_string );
-        $dsp_string = '';
-        foreach( $lang_array as $a) {
-            $dsp_string .= _(trim($a)) . ', ';
-        }
-        $dsp_string = substr( $dsp_string, 0, -2 );
-        $msg = '<p>'.
-               sprintf( _("Settings adjusted to: <strong>%s</strong> with <strong>%s</strong> as default dictionary."), $dsp_string, _($lang_default) ) .
-               '</p>';
+global $use_langs, $lang_default, $SQSPELL_APP_DEFAULT;
+$words = sqspell_getWords();
+if (!$words) {
+  $words = sqspell_makeDummy();
+}
+$langs = sqspell_getSettings($words);
+if (sizeof($use_langs)){
+  /**
+   * See if the user clicked any options on the previous page.
+   */
+  if (sizeof($use_langs)>1){
+    /**
+     * See if s/he wants more than one dictionary.
+     */
+    if ($use_langs[0]!=$lang_default){
+      /**
+       * See if we need to juggle the order of the dictionaries
+       * to make the default dictionary first in line.
+       */
+      if (in_array($lang_default, $use_langs)){
+       /**
+        * See if the user was dumb and chose a default dictionary
+        * to be something other than the ones he selected.
+        */
+       $hold = array_shift($use_langs);
+       $lang_string = join(", ", $use_langs);
+       $lang_string = str_replace("$lang_default", "$hold", $lang_string);
+       $lang_string = $lang_default . ", " . $lang_string;
+      } else {
+       /** 
+        * Yes, he is dumb.
+        */
+       $lang_string = join(', ', $use_langs);
+      }
     } else {
-        // No dictionaries selected. Use system default.
-        $msg = '<p>'.
-               sprintf( _("Using <strong>%s</strong> dictionary (system default) for spellcheck." ), $SQSPELL_APP_DEFAULT ) .
-               '</p>';
-        $lang_string = $SQSPELL_APP_DEFAULT;
+      /**
+       * No need to juggle the order -- preferred is already first.
+       */
+      $lang_string = join(', ', $use_langs);
     }
-    $old_lang_string = join(", ", $langs);
-    $words = str_replace("# LANG: $old_lang_string", "# LANG: $lang_string", $words);
-    // write it down where the sun don't shine.
-    sqspell_writeWords($words);
-    sqspell_makePage(_("International Dictionaries Preferences Updated"), null, $msg);
- 
+  } else {
+    /**
+     * Just one dictionary, please.
+     */
+    $lang_string = $use_langs[0];
+  }
+  $lang_array = explode( ',', $lang_string );
+  $dsp_string = '';
+  foreach( $lang_array as $a) {
+    $dsp_string .= _(trim($a)) . ', ';
+  }
+  $dsp_string = substr( $dsp_string, 0, -2 );
+  $msg = '<p>'
+    . sprintf(_("Settings adjusted to: <strong>%s</strong> with <strong>%s</strong> as default dictionary."), $dsp_string, _($lang_default))
+    . '</p>';
+} else {
+  /**
+   * No dictionaries selected. Use system default.
+   */
+  $msg = '<p>'
+    . sprintf(_("Using <strong>%s</strong> dictionary (system default) for spellcheck." ), $SQSPELL_APP_DEFAULT)
+    . '</p>';
+  $lang_string = $SQSPELL_APP_DEFAULT;
+}
+$old_lang_string = join(", ", $langs);
+$words = str_replace("# LANG: $old_lang_string", "# LANG: $lang_string", 
+                    $words);
+/**
+ * Write it down where the sun don't shine.
+ */
+sqspell_writeWords($words);
+sqspell_makePage(_("International Dictionaries Preferences Updated"), 
+                null, $msg);
+
+/**
+ * For Emacs weenies:
+ * Local variables:
+ * mode: php
+ * End:
+ */
 ?>