# -Identity number
# -Configurable currency
# -Configurable deal code
-# -Refunds or whatever this thing calls them
sub submit {
my($self) = @_;
cvv2 => 'cvv',
);
- die "invalid action" unless
- $self->{_content}{'action'} =~ /^\s*normal\s*authorization\s*$/i;
+ my $action = $self->{_content}{'action'};
+ if ( $action =~ /^\s*credit\s*$/i ) {
+ $self->{_content}{dealtype} = 51;
+ $self->{_content}{credittype} = 1;
+ } elsif ( $action !~ /^\s*normal\s*authorization\s*$/i ) {
+ die "invalid action";
+ }
$self->{_content}{'expiration'} =~ /^(\d+)\D+\d*(\d{2})$/
or croak "unparsable expiration ". $self->{_content}{expiration};
Username
userpassword
languages
+ dealtype
+ credittype
cvv
);
}
'support_types' => [ 'CC' ],
'token_support' => 0, # well technically the gateway supports it, but we haven't implemented it
'test_transaction' => 1,
- 'supported_actions' => [ # XXX refunds
+ 'supported_actions' => [
'Normal Authorization',
- ],
+ 'Credit',
+ ],
};
}