Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	18 Aug 2003 08:04:26 -0000	1.20
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	21 Aug 2003 08:45:26 -0000	1.21
@@ -366,7 +366,7 @@
     Returns the default locale for a language. Not cached.
     
     @author          Henry Minsky (hqm@mit.edu)
-    @param language  Name of a country, using ISO-3166 two letter code
+    @param language  Name of a language, using a two or three letter ISO code
     @return          Default locale
     
     @see lang::util::default_locale_from_lang
@@ -375,14 +375,16 @@
     # Note that this query does not use bind variables, because these cause the query to not
     # match any rows in Oracle when the language key is less than 3 characters, 
     # because the column is a char(3), not a varchar2(3).
-    return [db_string default_locale_from_lang {}]
+    return [db_string default_locale_from_lang {} -default ""]
 }
 
 ad_proc -public lang::util::default_locale_from_lang { 
     language
 } {
-    Returns the default locale for a language
-    
+    Returns an enabled default locale for a language. If a language
+    only has one locale then that locale is returned. If no locale
+    could be found the empty string is returned.
+
     @author          Henry Minsky (hqm@mit.edu)
     @param language  Name of a country, using ISO-3166 two letter code
     @return          Default locale