Added backwards-compatible support for sales_number

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

diff --git a/InternetSecure.pm b/InternetSecure.pm
index 0adb94f..b6632ed 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
@@ -283,7 +284,7 @@ sub parse_response {
                        cvv2_response   => 'CVV2ResponseCode',
 
                        receipt_number  => 'ReceiptNumber',
-                       sales_number    => 'SalesOrderNumber',
+                       order_number    => 'SalesOrderNumber',
                        uuid            => 'GUID',
                        guid            => 'GUID',
 
@@ -522,7 +523,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.