still working on the perl locale stuff
[OpenSRF.git] / src / perlmods / OpenSRF / DomainObject / oilsMessage.pm
index 0d0f327..ef7dc9f 100644 (file)
@@ -181,10 +181,12 @@ sub handler {
        my $session = shift;
 
        my $mtype = $self->type;
-       my $locale = $self->sender_locale;
-       my $api_level = $self->api_level || 1;;
+       my $locale = $self->sender_locale || '';
+       my $api_level = $self->api_level || 1;
        my $tT = $self->threadTrace;
 
+    $logger->debug("Message locale is $locale", DEBUG);
+
        $session->last_message_type($mtype);
        $session->last_message_api_level($api_level);
        $session->last_threadTrace($tT);