$self->build_subs(qw(
receipt_number sales_number
+ date
card_type
total_amount
avs_response cvv2_response
$data{MerchantNumber} = $self->merchant_id;
$data{xxxCard_Number} =~ tr/ //d;
- $data{xxxCard_Number} =~ s/^[0-36-9]/4/ if $self->test_transaction;
+ $data{xxxCard_Number} =~ s/^[^3-6]/4/ if $self->test_transaction;
my ($y, $m) = $self->parse_expdate($content{exp_date});
$data{xxxCCYear} = sprintf '%.4u' => $y;
$self->infuse($response, qw(
ReceiptNumber receipt_number
SalesOrderNumber sales_number
+ Date date
CardType card_type
Page result_code
ApprovalCode authorization
Sales order number of this transaction. This is a number, unique to each
merchant, which is incremented by 1 each time.
+=item date()
+
+Date and time of the transaction. Format is C<YYYY/MM/DD hh:mm:ss>.
+
=item total_amount()
Total amount billed for this order, including taxes.