Index: openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl	4 Oct 2003 12:12:01 -0000	1.1
+++ openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl	5 Oct 2003 17:55:55 -0000	1.2
@@ -17,4 +17,78 @@
 		  0 [exec which ispell] \
 		  ""]]
 
+
+# Do we want dialect dictionaries (if available) or not?
+# Note that if you change this param it won't take effect
+# until the server has been restarted. 
+set dialects_p [parameter::get_from_package_key \
+		    -package_key acs-templating \
+		    -parameter SpellcheckDialectsP \
+		    -default 0]
+
+# aspell or ispell?
+if { [regexp aspell $bin] } {
+    # aspell
+    set dicts [exec $bin dump dicts]
+    set default_lang [exec $bin config lang]
+    if { !$dialects_p } {
+	# If no dialects, the the default_lang locale returned from aspell
+	# must be shortened to the first two letters, so that it matches
+	# the one of the names in the pull-down menu.
+	set default_lang [string range $default_lang 0 1]
+    }
+} elseif { [regexp ispell $bin] } {
+    # ispell - if someone knows how to get the availagle dictionaries and the
+    # default language from ispell, please add it here :-)
+    set dicts ""
+    set default_lang ""
+} else {
+    set dicts ""
+    set default_lang ""
+}
+
+
+# Build the select options list and filter out unwanted dictionaries.
+set wanted_dicts [list {"No, thanks" :nospell:}]
+
+if { [empty_string_p $dicts] } {
+    # Just add the default locale (the empty string will work too).
+    lappend wanted_dicts [list "Yes, please" $default_lang]
+}
+
+db_transaction {
+
+    foreach dict $dicts {
+	if { [string length $dict] == 2 } {
+	    # We have a lang (e.g., en)
+	    lappend wanted_dicts [list [string totitle [lang::util::nls_language_from_language $dict]] $dict]
+	    set last_dict $dict
+	} elseif { $dialects_p && [string length $dict] == 5 && [regexp _ $dict] } {
+	    # We have a locale (e.g., en_US)
+	    if { [info exists last_dict] } {
+		set wanted_dicts [lreplace $wanted_dicts end end]
+		unset last_dict
+	    }
+	    # Some five-char aspell dicts (locales) are missing in ad_locales so we
+	    # need to catch those cases and use the locale as the pretty name, ugh ...
+	    if { [catch { lappend wanted_dicts [list [string totitle [ad_locale_get_label $dict]] $dict] }] } {
+		lappend wanted_dicts [list "Locale $dict" $dict]
+	    }
+	}
+    }
+
+} on_error {
+    # Just add the default locale.
+    lappend wanted_dicts [list "Yes, please" $default_lang]
+}
+
+
+#####
+#
+# Initialize the cache.
+#
+#####
+
 nsv_set spellchecker path $bin
+nsv_set spellchecker lang_options $wanted_dicts
+nsv_set spellchecker default_lang $default_lang