Index: openacs-4/packages/acs-lang/tcl/locale-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/locale-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-lang/tcl/locale-procs.xql	28 Oct 2002 12:32:45 -0000	1.3
+++ openacs-4/packages/acs-lang/tcl/locale-procs.xql	3 Dec 2002 17:26:54 -0000	1.4
@@ -1,11 +1,12 @@
 <?xml version="1.0"?>
 <queryset>
 
-   <fullquery name="lang::user::locale.get_user_locale">      
+   <fullquery name="lang::user::package_level_locale.get_user_locale">      
       <querytext>
-        select locale 
-        from   ad_locale_user_prefs 
+        select locale
+        from   ad_locale_user_prefs
         where  user_id = :user_id
+        and    package_id = :package_id
       </querytext>
    </fullquery>
 
@@ -15,27 +16,28 @@
         select count(*) 
         from   ad_locale_user_prefs 
         where  user_id = :user_id
+        and    package_id = :package_id
       </querytext>
    </fullquery>
 
 
    <fullquery name="lang::user::set_locale.update_user_locale">
       <querytext>
-        update ad_locale_user_prefs set locale = :locale where user_id = :user_id
+        update ad_locale_user_prefs set locale = :locale where user_id = :user_id and package_id = :package_id
       </querytext>
    </fullquery>
 
 
    <fullquery name="lang::user::set_locale.insert_user_locale">
       <querytext>
-         insert into ad_locale_user_prefs (user_id, locale) values (:user_id, :locale)
+         insert into ad_locale_user_prefs (user_id, package_id, locale) values (:user_id, :package_id, :locale)
       </querytext>
    </fullquery>
 
 
    <fullquery name="lang::user::set_locale.delete_user_locale">
       <querytext>
-        delete from ad_locale_user_prefs where user_id = :user_id
+        delete from ad_locale_user_prefs where user_id = :user_id and package_id = :package_id
       </querytext>
    </fullquery>