From bd2cf25a9423cf84c0ce97e694e8d2f035669df0 Mon Sep 17 00:00:00 2001 From: fbriere Date: Fri, 17 Feb 2006 00:35:37 +0000 Subject: [PATCH] Renamed order_number() to sales_number() --- InternetSecure.pm | 6 +++--- t/30parse.t | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/InternetSecure.pm b/InternetSecure.pm index f4c02b9..30ef584 100755 --- a/InternetSecure.pm +++ b/InternetSecure.pm @@ -37,7 +37,7 @@ sub set_defaults { $self->path('/process.cgi'); $self->build_subs(qw( - receipt_number order_number + receipt_number sales_number card_type total_amount avs_response cvv2_response @@ -250,7 +250,7 @@ sub parse_response { $self->infuse($response, qw( ReceiptNumber receipt_number - SalesOrderNumber order_number + SalesOrderNumber sales_number CardType card_type Page result_code ApprovalCode authorization @@ -460,7 +460,7 @@ Customer information. B should be a two-letter code taken from ISO =over 4 -=item receipt_number() / order_number() +=item receipt_number() / sales_number() Receipt number and sales order number of submitted order. diff --git a/t/30parse.t b/t/30parse.t index 44feb56..dbdeec0 100755 --- a/t/30parse.t +++ b/t/30parse.t @@ -1,6 +1,6 @@ use constant FIELDS => qw( result_code authorization error_message - receipt_number order_number + receipt_number sales_number card_type avs_response cvv2_response total_amount @@ -13,7 +13,7 @@ use constant RESULTS => ( authorization => 'T00000', error_message => 'Test Approved', receipt_number => '1096019995.5012', - order_number => 0, + sales_number => 0, card_type => undef, avs_response => undef, cvv2_response => undef, @@ -25,7 +25,7 @@ use constant RESULTS => ( authorization => undef, error_message => 'Real error message', receipt_number => '1096021915.5853', - order_number => 729, + sales_number => 729, card_type => 'Visa', avs_response => undef, cvv2_response => undef, -- 2.11.0