$self->path('/process.cgi');
$self->build_subs(qw(
- receipt_number sales_order_number
+ receipt_number order_number
card_type
total_amount
avs_response cvv2_response
croak 'Unsupported action'
unless $content{action} =~ /^Normal Authori[zs]ation$/i;
- $content{currency} ||= 'CAD';
- $content{currency} = uc $content{currency};
+ $content{currency} = uc($content{currency} || 'CAD');
croak "Unknown currency code ", $content{currency}
unless $content{currency} =~ /^(CAD|USD)$/;
- $content{taxes} ||= '';
- $content{taxes} = uc $content{taxes};
+ $content{taxes} = uc($content{taxes} || '');
my %data = $self->get_remap_fields(qw(
xxxCard_Number card_number
$self->infuse($response, qw(
ReceiptNumber receipt_number
- SalesOrderNumber sales_order_number
+ SalesOrderNumber order_number
CardType card_type
Page result_code
ApprovalCode authorization
=over 4
-=item receipt_number() / sales_order_number()
+=item receipt_number() / order_number()
Receipt number and sales order number of submitted order.