diff options
Diffstat (limited to 'lib/Business/OnlinePayment/Jety.pm')
| -rw-r--r-- | lib/Business/OnlinePayment/Jety.pm | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/lib/Business/OnlinePayment/Jety.pm b/lib/Business/OnlinePayment/Jety.pm index f653e8a..8d563d8 100644 --- 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'); |