[Opensrf-commits] r1067 - in trunk/src/perlmods/OpenSRF: . DomainObject

[svn at svn.open-ils.org]

Author: miker
Date: 2007-08-01 23:03:35 -0400 (Wed, 01 Aug 2007)
New Revision: 1067

Modified:
   trunk/src/perlmods/OpenSRF/AppSession.pm
   trunk/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm
Log:
unbreaking the perl session locale stuff

Modified: trunk/src/perlmods/OpenSRF/AppSession.pm
===================================================================
--- trunk/src/perlmods/OpenSRF/AppSession.pm	2007-08-02 02:49:53 UTC (rev 1066)
+++ trunk/src/perlmods/OpenSRF/AppSession.pm	2007-08-02 03:03:35 UTC (rev 1067)
@@ -750,13 +750,7 @@
 	$logger->debug( "Number of matched responses: " . @list, DEBUG );
 	$self->queue_wait(0); # check for statuses
 	
-	if (!wantarray) {
-		$self->session_locale( $list[0]->sender_locale );
-		return $list[0];
-	} else {
-		$self->session_locale( $list[-1]->sender_locale );
-	}
-
+	return $list[0] if (!wantarray);
 	return @list;
 }
 

Modified: trunk/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm
===================================================================
--- trunk/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm	2007-08-02 02:49:53 UTC (rev 1066)
+++ trunk/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm	2007-08-02 03:03:35 UTC (rev 1067)
@@ -181,12 +181,14 @@
 	my $session = shift;
 
 	my $mtype = $self->type;
+	my $locale = $self->sender_locale;
 	my $api_level = $self->api_level || 1;;
 	my $tT = $self->threadTrace;
 
 	$session->last_message_type($mtype);
 	$session->last_message_api_level($api_level);
 	$session->last_threadTrace($tT);
+	$session->session_locale($locale);
 
 	$log->debug(" Received api_level => [$api_level], MType => [$mtype], ".
 			"from [".$session->remote_id."], threadTrace[".$self->threadTrace."]");