RT#7180: fix refund problems

[Business-OnlinePayment-Jety.git] / lib / Business / OnlinePayment / Jety.pm

diff --git a/lib/Business/OnlinePayment/Jety.pm b/lib/Business/OnlinePayment/Jety.pm
index f653e8a..8d563d8 100644 (file)
--- a/lib/Business/OnlinePayment/Jety.pm
+++ b/lib/Business/OnlinePayment/Jety.pm
@@ -10,7 +10,7 @@ use Date::Format;
 use Tie::IxHash;
 
 @ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.06';
+$VERSION = '0.07';
 $me = 'Business::OnlinePayment::Jety';
 
 $DEBUG = 0;
@@ -36,7 +36,7 @@ my %map = (
   'phone'         => 'phone',
   'programdesc'   => 'description',
   'ref'           => sub { my %c = @_; 
-                           $c{'order_number'} || 
+                           $c{'authorization'} || 
                            substr( time2str('%Y%m%d%H%M%S',time). int(rand(10000)), -15 ) 
                            },
   'bankname'      => 'bank_name',
@@ -49,7 +49,7 @@ my %map = (
 'void' => [
   'username'      => 'login',
   'password'      => 'password',
-  'ref'           => 'order_number',
+  'ref'           => 'authorization',
   'accountdda'    => 'account_number',
   'amount'        => sub { my %c = @_; sprintf("%.02f",$c{'amount'}) },
 ],
@@ -85,12 +85,24 @@ my %required = (
   action
   login
   password
-  order_number
+  authorization 
   account_number
   amount
 ) ],
 );
 
+sub _info {
+  {
+    info_compat             => '0.01',
+    gateway_name            => 'Jety',
+    gateway_url             => 'http://www.jetypay.com',
+    module_version          => $VERSION,
+    supported_types         => [ 'ECHECK' ],
+    supported_actions       => [ 'Normal Authorization', 'Void' ],
+    ECHECK_void_requires_account => 1,
+  }
+}
+
 sub set_defaults {
   my $self = shift;
   $self->server('api.cardservicesportal.com');