diff options
| author | ivan <ivan> | 2003-07-29 15:17:17 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-07-29 15:17:17 +0000 |
| commit | f81efc6bd0b2541c1e1dcdd1dcaf4f04d17cccfc (patch) | |
| tree | b364fc26522bfae70cb11b0fbcf201137ec7beb2 | |
| parent | 1afbfc2928204a7ed8d8775456b4b71c5a9d7795 (diff) | |
From valerian <valerian2@hotpop.com>:
- Added "avs_code" method
- Return "order_number" for unsucessful transactions also
| -rw-r--r-- | AuthorizeNet.pm | 6 | ||||
| -rw-r--r-- | Changes | 3 |
2 files changed, 6 insertions, 3 deletions
diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm index 9da8850..bd06915 100644 --- a/AuthorizeNet.pm +++ b/AuthorizeNet.pm @@ -21,8 +21,7 @@ sub set_defaults { $self->port('443'); $self->path('/gateway/transact.dll'); - $self->build_subs('order_number'); #no idea how it worked for jason w/o this - $self->build_subs('md5'); + $self->build_subs(qw(order_number md5 avs_code)); } sub map_fields { @@ -182,12 +181,13 @@ sub submit { my @col = $csv->fields(); $self->server_response($page); + $self->avs_code($col[5]); + $self->order_number($col[6]); $self->md5($col[37]); if($col[0] eq "1" ) { # Authorized/Pending/Test $self->is_success(1); $self->result_code($col[0]); $self->authorization($col[4]); - $self->order_number($col[6]); } else { $self->is_success(0); $self->result_code($col[2]); @@ -13,6 +13,9 @@ Revision history for Perl extension Business::OnlinePayment::AuthorizeNet. password - add "recurring_billing" field - added "md5" method + From valerian <valerian2@hotpop.com>: + - Added "avs_code" method + - Return "order_number" for unsucessful transactions also 3.12 Thu Nov 21 17:05:19 2002 - Added cvv2 field, patch from T.J. Mather <tjmather@maxmind.com> |