use vars qw($VERSION $DEBUG @ISA $me);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.09_02';
+$VERSION = '0.11_01';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
sub _info {
{
- 'info_version' => '0.01',
+ 'info_compat' => '0.01',
'module_version' => $VERSION,
'supported_types' => [ qw( CC ECHECK ) ],
'supported_actions' => { 'CC' => [
BillingCountry => \$country,
BillingPhone => 'phone',
Email => 'email',
- UserIPAddr => 'customer_ip',
+ UserIPAddress => 'customer_ip',
UserHost => 'UserHost',
UDField1 => 'UDField1',
UDField2 => 'UDField2',
if ( $item eq 'ACH' ) {
$att{'Type'} = $self->{_content}->{'account_type'}
if $self->{_content}->{'account_type'}; #necessary so we don't pass empty?
- $att{'SEC'} = 'PPD';
+ $att{'SEC'} = $self->{_content}->{'nacha_sec_code'}
+ || ( $att{'Type'} =~ /business/i ? 'CCD' : 'PPD' );
}
$writer->startTag($item, %att);
BillingCountry => 'country', # forced to ISO-3166-alpha-3
BillingPhone => 'phone',
Email => 'email',
- UserIPAddr => 'customer_ip',
+ UserIPAddress => 'customer_ip',
UserHost => 'UserHost',
UDField1 => 'UDField1',
UDField2 => 'UDField2',
Reverse Authorization patch from dougforpres
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 1999 Jason Kohles
+Copyright (c) 2002-2003 Ivan Kohler
+Copyright (c) 2008-2021 Freeside Internet Services, Inc.
+
+All rights reserved. This program is free software; you can redistribute it
+and/or modify it under the same terms as Perl itself.
+
+=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 with IPPay and over 50 other gateways, invoicing, integrated
+trouble ticketing, and customer signup and self-service web interfaces.
+
+http://freeside.biz/freeside/
+
=head1 SEE ALSO
perl(1). L<Business::OnlinePayment>.