Index: openacs-4/packages/acs-lang/tcl/localization-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/localization-procs.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/packages/acs-lang/tcl/localization-procs.tcl 13 Jan 2005 13:55:26 -0000 1.15 +++ openacs-4/packages/acs-lang/tcl/localization-procs.tcl 8 Feb 2005 01:14:27 -0000 1.16 @@ -191,7 +191,10 @@ # Fall back on en_US if grouping is not on valid format if { ![string equal $locale en_US] && ![regexp {^[0-9 ]+$} $grouping] } { ns_log Warning "lc_numeric: acs-lang.localization-grouping key has invalid value $grouping for locale $locale" - return [lc_numeric $num $fmt en_US] + set sep , + set dec . + set grouping 3 + } regsub {\.} $out $dec out