From 9f5f1b9518690d3a77ae873c0dce83586f7e22fe Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 20 Nov 2007 20:22:22 +0000
Subject: [PATCH] propogate locale from server to client

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1138 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/AppSession.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/perlmods/OpenSRF/AppSession.pm b/src/perlmods/OpenSRF/AppSession.pm
index 7d66cea..7513685 100644
--- a/src/perlmods/OpenSRF/AppSession.pm
+++ b/src/perlmods/OpenSRF/AppSession.pm
@@ -21,6 +21,7 @@ our %EXPORT_TAGS = ( state => [ qw/CONNECTING INIT_CONNECTED CONNECTED DISCONNEC
 );
 
 my $logger = "OpenSRF::Utils::Logger";
+my $_last_locale = 'en-US';
 
 our %_CACHE;
 our @_RESEND_QUEUE;
@@ -159,6 +160,7 @@ sub last_sent_payload {
 sub session_locale {
 	my( $self, $type ) = @_;
 	if( $type ) {
+        $_last_locale = $type if ($self->endpoint == SERVER);
 		return $self->{'session_locale'} = $type;
 	}
 	return $self->{'session_locale'};
@@ -207,7 +209,7 @@ sub create {
 	my $app = shift;
         my $api_level = shift;
 	my $quiet = shift;
-	my $locale = shift;
+	my $locale = shift || $_last_locale;
 
 	$api_level = 1 if (!defined($api_level));
 			        
-- 
2.43.2