Added support for CC type

[Business-OnlinePayment-InternetSecure.git] / InternetSecure.pm

diff --git a/InternetSecure.pm b/InternetSecure.pm
index 0adb94f..cde38d3 100755 (executable)
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -39,7 +39,7 @@ sub set_defaults {
        $self->path('/process.cgi');
 
        $self->build_subs(qw(
-                               receipt_number  sales_number    uuid    guid
+                               receipt_number  order_number    uuid    guid
                                date
                                card_type       cardholder
                                total_amount    tax_amounts
@@ -50,8 +50,9 @@ sub set_defaults {
        $self->tax_amounts( {} );
 }
 
-# Backwards-compatible support for avs_response
+# Backwards-compatible support for renamed fields
 sub avs_response { shift()->avs_code(@_) }
+sub sales_number { shift()->order_number(@_) }
 
 
 # Combine get_fields and remap_fields for convenience.  Unlike OnlinePayment's
@@ -150,7 +151,7 @@ sub to_xml {
        croak "Unsupported transaction type: $content{type}"
                if $content{type} &&
                        ! grep lc($content{type}) eq lc($_),
-                               values %{+CARD_TYPES};
+                               values %{+CARD_TYPES}, 'CC';
        
        croak 'Unsupported action'
                unless $content{action} =~ /^Normal Authori[zs]ation$/i;
@@ -283,7 +284,7 @@ sub parse_response {
                        cvv2_response   => 'CVV2ResponseCode',
 
                        receipt_number  => 'ReceiptNumber',
-                       sales_number    => 'SalesOrderNumber',
+                       order_number    => 'SalesOrderNumber',
                        uuid            => 'GUID',
                        guid            => 'GUID',
 
@@ -433,6 +434,8 @@ Transaction type, being one of the following:
 
 =item - JCB
 
+=item - CC
+
 =back
 
 (This is actually ignored for the moment, and can be left blank or undefined.)
@@ -522,7 +525,7 @@ B<is_success>() instead.)
 Receipt number (a string, actually) of this transaction, unique to all
 InternetSecure transactions.
 
-=item sales_number()
+=item order_number()
 
 Sales order number of this transaction.  This is a number, unique to each
 merchant, which is incremented by 1 each time.