From 7a621ce646e247792faa4eafc4b42079ed52689e Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 20 Nov 2007 20:00:53 +0000
Subject: [PATCH] debug logging

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

diff --git a/src/perlmods/OpenSRF/AppSession.pm b/src/perlmods/OpenSRF/AppSession.pm
index 76f6c09..70ded95 100644
--- a/src/perlmods/OpenSRF/AppSession.pm
+++ b/src/perlmods/OpenSRF/AppSession.pm
@@ -235,8 +235,6 @@ sub create {
 	}
 
 	my $self = bless { app_name    => $app,
-				#client_auth => $auth,
-			   #recv_queue  => [],
 			   request_queue  => [],
 			   endpoint    => CLIENT,
 			   state       => DISCONNECTED,#since we're init'ing
@@ -501,13 +499,15 @@ sub send {
 	
 		$msg->api_level($self->api_level);
 		$msg->payload($payload) if $payload;
-		$msg->sender_locale($self->session_locale) if $self->session_locale;
+
+        my $locale = $self->session_locale;
+		$msg->sender_locale($locale) if ($locale);
 	
 		push @doc, $msg;
 
 	
 		$logger->info( "AppSession sending ".$msg->type." to ".$self->remote_id.
-			" with threadTrace [".$msg->threadTrace."]" );
+			" with threadTrace [".$msg->threadTrace."] and locale [".$msg->locale."]" );
 
 	}
 	
@@ -544,7 +544,6 @@ sub send {
 	$self->{peer_handle}->send( 
 					to     => $self->remote_id,
 				   thread => $self->session_id,
-				   locale => $self->session_locale,
 				   body   => $json );
 
 	if( $disconnect) {
-- 
2.43.2