[Opensrf-commits] r1135 - trunk/src/perlmods/OpenSRF

[svn at svn.open-ils.org]

Author: miker
Date: 2007-11-20 15:00:53 -0500 (Tue, 20 Nov 2007)
New Revision: 1135

Modified:
   trunk/src/perlmods/OpenSRF/AppSession.pm
Log:
debug logging

Modified: trunk/src/perlmods/OpenSRF/AppSession.pm
===================================================================
--- trunk/src/perlmods/OpenSRF/AppSession.pm	2007-11-20 19:51:17 UTC (rev 1134)
+++ trunk/src/perlmods/OpenSRF/AppSession.pm	2007-11-20 20:00:53 UTC (rev 1135)
@@ -235,8 +235,6 @@
 	}
 
 	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 @@
 	
 		$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 @@
 	$self->{peer_handle}->send( 
 					to     => $self->remote_id,
 				   thread => $self->session_id,
-				   locale => $self->session_locale,
 				   body   => $json );
 
 	if( $disconnect) {