use Tie::IxHash;
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.07';
+$VERSION = '0.09';
$me = 'Business::OnlinePayment::Jety';
$DEBUG = 0;
my %trans_type = (
'normal authorization' => 'echeck',
'void' => 'ereturn',
+ 'credit' => 'ereturn',
);
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',
amount
) ],
);
+$required{'credit'} = $required{'void'};
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,
}
}
use Business::OnlinePayment;
####
- # Electronic check authorization. We only support
- # 'Normal Authorization'.
+ # Electronic check authorization.
####
my $tx = new Business::OnlinePayment("Jety");
The following actions are valid:
- normal authorization
+ Normal Authorization
+ Void
+ Credit
=head1 AUTHOR
perl(1). L<Business::OnlinePayment>.
+=head1 ADVERTISEMENT
+
+Need a complete, open-source back-office and customer self-service solution?
+The Freeside software includes support for credit card and electronic check
+processing, integrated trouble ticketing, and customer signup and self-service
+web interfaces.
+
+http://freeside.biz/freeside/
+
=cut