SF.net SVN: ledger-smb:[5698] trunk

[..hidden..]

Revision: 5698
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5698&view=rev
Author:   einhverfr
Date:     2013-03-23 13:51:50 +0000 (Sat, 23 Mar 2013)
Log Message:
-----------
Fixing language change delayed on when changing preferences

Modified Paths:
--------------
    trunk/Changelog
    trunk/LedgerSMB/Scripts/user.pm

Modified: trunk/Changelog
===================================================================
--- trunk/Changelog	2013-03-23 13:35:21 UTC (rev 5697)
+++ trunk/Changelog	2013-03-23 13:51:50 UTC (rev 5698)
@@ -95,6 +95,7 @@
 * Fixed handling of translation strings in Contact Search (Chris T, 3604721)
 * Fixed handling of spaces in debit/credit cols/gl (Chris T, 3607219)
 * Fixed handling of invoice numbers on recurring (Chris T, 3602382)
+* Fixed language code changes delayed (Chris T, 3607220) 
 
 Changelog for 1.3.30
 * Documented behavior of Outstanding Summary report (Chris T, 3601314)

Modified: trunk/LedgerSMB/Scripts/user.pm
===================================================================
--- trunk/LedgerSMB/Scripts/user.pm	2013-03-23 13:35:21 UTC (rev 5697)
+++ trunk/LedgerSMB/Scripts/user.pm	2013-03-23 13:51:50 UTC (rev 5698)
@@ -26,6 +26,7 @@
 use LedgerSMB;
 use LedgerSMB::Template;
 use LedgerSMB::DBObject::User;
+use LedgerSMB::App_State;
 our $VERSION = 1.0;
 use strict;
 
@@ -71,6 +72,10 @@
 
 sub save_preferences {
     my ($request) = @_;
+    $request->{_user}->{language} = $request->{language};
+    $locale =  LedgerSMB::Locale->get_handle($request->{_user}->{language});
+    $request->{_locale} = $locale;
+    $LedgerSMB::App_State::Locale = $locale;
     my $user = LedgerSMB::DBObject::User->new({base => $request});
     $user->{dateformat} =~ s/$slash/\//g;
     if ($user->{confirm_password}){

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.