Add "credit" as a synonym for "void"

diff --git a/Changes b/Changes
index 2785963..5a53206 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Business-OnlinePayment-Jety
 
+0.08    Fri Mar 19 00:22:40 PDT 2010
+        - Add "credit" as a synonym for "void".
+
 0.07    Wed Mar 10 21:27:53 PST 2010
         - Add _info support.
         - Fix incorrect use of order_number instead of authorization.

diff --git a/lib/Business/OnlinePayment/Jety.pm b/lib/Business/OnlinePayment/Jety.pm
index 8d563d8..a10c64e 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.07';
+$VERSION = '0.08';
 $me = 'Business::OnlinePayment::Jety';
 
 $DEBUG = 0;
@@ -18,6 +18,7 @@ $DEBUG = 0;
 my %trans_type = (
   'normal authorization' => 'echeck',
   'void'                 => 'ereturn',
+  'credit'               => 'ereturn',
   );
 
 my %map = (
@@ -54,6 +55,7 @@ my %map = (
   'amount'        => sub { my %c = @_; sprintf("%.02f",$c{'amount'}) },
 ],
 );
+$map{'credit'} = $map{'void'};
 
 my %defaults = ( # using the B:OP names
   'phone'         => '111-111-1111',
@@ -90,6 +92,7 @@ my %required = (
   amount
 ) ],
 );
+$required{'credit'} = $required{'void'};
 
 sub _info {
   {
@@ -98,7 +101,7 @@ sub _info {
     gateway_url             => 'http://www.jetypay.com',
     module_version          => $VERSION,
     supported_types         => [ 'ECHECK' ],
-    supported_actions       => [ 'Normal Authorization', 'Void' ],
+    supported_actions       => [ 'Normal Authorization', 'Void', 'Credit' ],
     ECHECK_void_requires_account => 1,
   }
 }