X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=AuthorizeNet.pm;h=a8576ee3dc35875895f5a5e4682b1106746f7d45;hb=5c45b7c673c0f047dbdb609ad0bf11b52d6918ce;hp=abe5f7b93355af4e68064e7a8b50c04e2b174070;hpb=5307cdc48107912cb744f6c5c230e6babda86c99;p=Business-OnlinePayment-AuthorizeNet.git

diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm
index abe5f7b..a8576ee 100644
--- a/AuthorizeNet.pm
+++ b/AuthorizeNet.pm
@@ -12,7 +12,7 @@ require Exporter;
 @ISA = qw(Exporter AutoLoader Business::OnlinePayment);
 @EXPORT = qw();
 @EXPORT_OK = qw();
-$VERSION = '3.14';
+$VERSION = '3.15';
 
 sub set_defaults {
     my $self = shift;
@@ -160,6 +160,8 @@ sub submit {
           } else {
             push @required_fields, qw( amount card_number expiration );
           }
+        } elsif ( $self->{_content}->{action} eq 'CREDIT' ) {
+          push @required_fields, qw( amount order_number card_number );
         } else {
           push @required_fields, qw(
             amount last_name first_name card_number expiration
@@ -191,6 +193,8 @@ sub submit {
         x_Currency_Code x_Trans_ID/);
     $post_data{'x_Test_Request'} = $self->test_transaction()?"TRUE":"FALSE";
     $post_data{'x_ADC_Delim_Data'} = 'TRUE';
+    $post_data{'x_delim_char'} = ',';
+    $post_data{'x_encap_char'} = '"';
     $post_data{'x_ADC_URL'} = 'FALSE';
     $post_data{'x_Version'} = '3.1';