From: ivan <ivan>
Date: Tue, 29 Jul 2003 15:17:17 +0000 (+0000)
Subject: 	From valerian <valerian2@hotpop.com>:
X-Git-Tag: BUSINESS_ONLINEPAYMENT_AUTHORIZENET_3_13~1
X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-AuthorizeNet.git;a=commitdiff_plain;h=f81efc6bd0b2541c1e1dcdd1dcaf4f04d17cccfc

	From valerian <valerian2@hotpop.com>:
	- Added "avs_code" method
	- Return "order_number" for unsucessful transactions also
---

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]);
diff --git a/Changes b/Changes
index 054bc76..54b62e1 100644
--- a/Changes
+++ b/Changes
@@ -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>