Index: openacs-4/packages/acs-lang/tcl/locale-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/locale-procs.tcl,v
diff -u -N -r1.51.2.3 -r1.51.2.4
--- openacs-4/packages/acs-lang/tcl/locale-procs.tcl	19 Jan 2020 20:34:25 -0000	1.51.2.3
+++ openacs-4/packages/acs-lang/tcl/locale-procs.tcl	19 Jan 2020 21:11:56 -0000	1.51.2.4
@@ -691,21 +691,26 @@
 
 ad_proc -public lang::conn::language {
     {-package_id ""}
+    {-user_id_id ""}
     {-site_wide:boolean}
     {-iso6392:boolean}
     {-locale ""}
 } {
     Get the language for this request, perhaps for a given package instance.
 
-    @param package_id The package for which you want to get the language.
-    @param site_wide Set this if you want to get the site-wide language.
+    @param package_id The package for which you want to get the language
+           (used only when, no locale is provided).
+    @param user_id The user_id for whom you want to get the language
+           (used only when, no locale is provided).
+    @param site_wide Set this if you want to get the site-wide language
+               (used only when, no locale is provided).
     @param iso6392   Set this if you want to force the iso-639-2 code
-    @param locale   obtain language from provided locale
+    @param locale    obtain language from provided locale
 
     @return 3 chars language code if iso6392 is set, left part of locale otherwise
 } {
     if {$locale eq ""} {
-        set locale [locale -package_id $package_id -site_wide=$site_wide_p]
+        set locale [locale -package_id $package_id -user_id $user_id -site_wide=$site_wide_p]
     }
     set conn_lang [lindex [split $locale "_"] 0]