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.12 -r1.13
--- openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl	10 Jan 2007 21:22:12 -0000	1.12
+++ openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl	29 Aug 2007 14:01:33 -0000	1.13
@@ -58,6 +58,16 @@
     set default_lang ""
 } 
 
+#Do we include all availabale dicts or not ?
+set use_dicts_p [parameter::get_from_package_key \
+		    -package_key acs-templating \
+		    -parameter SpellcheckUseDictsP \
+		    -default 0]
+
+if {$use_dicts_p == 0} {
+	set dicts ""
+}	    
+		    
 # Build the select options list and filter out unwanted dictionaries.
 set wanted_dicts [list {"No" :nospell:}]