From e2a218e6f50d2d18a7233698d91559c48ca142d9 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 6 Jun 2011 10:48:20 -0700
Subject: [PATCH] Set the locale in the correct communication with PayPal.

---
 lib/WebGUI/Shop/PayDriver/PayPal/ExpressCheckout.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Shop/PayDriver/PayPal/ExpressCheckout.pm b/lib/WebGUI/Shop/PayDriver/PayPal/ExpressCheckout.pm
index 19533ded3..f32d3e66e 100644
--- a/lib/WebGUI/Shop/PayDriver/PayPal/ExpressCheckout.pm
+++ b/lib/WebGUI/Shop/PayDriver/PayPal/ExpressCheckout.pm
@@ -191,7 +191,6 @@ PayPal API spit back.
 sub processPayment {
     my ( $self, $transaction ) = @_;
 
-    my $i18n = WebGUI::International->new($self->session);
     my $form = $self->payPalForm(
         METHOD        => 'DoExpressCheckoutPayment',
         PAYERID       => $self->session->form->process('PayerId'),
@@ -199,7 +198,6 @@ sub processPayment {
         AMT           => $self->getCart->calculateTotal,
         CURRENCYCODE  => $self->get('currency'),
         PAYMENTACTION => 'SALE',
-        LOCALECODE    => $i18n->getLanguage->{locale},
     );
     my $response = LWP::UserAgent->new->post( $self->apiUrl, $form );
     my $params = $self->responseHash($response);
@@ -272,12 +270,14 @@ sub www_sendToPayPal {
     my $url     = $session->url;
     my $base    = $url->getSiteURL . $url->page;
 
+    my $i18n = WebGUI::International->new($self->session);
     my $returnUrl = URI->new($base);
     $returnUrl->query_form( {
             shop             => 'pay',
             method           => 'do',
             do               => 'payPalCallback',
             paymentGatewayId => $self->getId,
+            LOCALECODE       => $i18n->getLanguage->{locale},
         }
     );