X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlineThirdPartyPayment-FCMB.git;a=blobdiff_plain;f=FCMB.pm;h=cae090cb03fd4e607898e16a197dd5551bff5d0b;hp=2321d0927df0d4fe97c5c1eb5263f38af44fd7f1;hb=HEAD;hpb=472f07098c2e10ac025b132df098f4b51c14adb1

diff --git a/FCMB.pm b/FCMB.pm
index 2321d09..cae090c 100644
--- a/FCMB.pm
+++ b/FCMB.pm
@@ -91,14 +91,13 @@ sub execute {
   } else {
     $host ||= $ENDPOINT_LIVE;
   }
-  my $url = 'https://' . $host .
-    '/customerportal/MerchantServices/UpayTransactionStatus.ashx';
+  my $url = URI->new('https://' . $host .
+    '/customerportal/MerchantServices/UpayTransactionStatus.ashx');
+  $url->query_form('MERCHANT_ID'  => $self->username,
+                   'ORDER_ID'     => $self->token);
   my $ua = LWP::UserAgent->new;
   warn "Querying transaction status at $url\n" if $DEBUG;
-  my $response = $ua->get($url,
-    'MERCHANT_ID'  => $self->username,
-    'ORDER_ID'     => $self->token
-  );
+  my $response = $ua->get($url);
 
   if ( $response->is_success ) {