summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
bee7c61)
- trim spaces from authorization (TRANSACTIONID)
- return numeric IATS error message as result_code
Revision history for Perl extension Business::OnlinePayment::IATSPayments.
Revision history for Perl extension Business::OnlinePayment::IATSPayments.
+0.02 unreleased
+ - trim spaces from authorization (TRANSACTIONID)
+ - return numeric IATS error message as result_code
+
0.01 unreleased
- original version. the world might suspect something's afoot.
0.01 unreleased
- original version. the world might suspect something's afoot.
use SOAP::Lite;
#SOAP::Lite->import(+trace=>'debug');
use SOAP::Lite;
#SOAP::Lite->import(+trace=>'debug');
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
sub _info {
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
sub _info {
my $processresult = $iatsresponse->{PROCESSRESULT};
my $processresult = $iatsresponse->{PROCESSRESULT};
+ $processresult->{TRANSACTIONID} =~ s/^\s+//;
+ $processresult->{TRANSACTIONID} =~ s/\s+$//;
$self->authorization($processresult->{TRANSACTIONID} || '');
if ( $processresult->{AUTHORIZATIONRESULT} =~ /^\s*OK(:\s*\d+:)?(\w)?\s*$/i ) {
$self->authorization($processresult->{TRANSACTIONID} || '');
if ( $processresult->{AUTHORIZATIONRESULT} =~ /^\s*OK(:\s*\d+:)?(\w)?\s*$/i ) {
)
{
$self->is_success(0);
)
{
$self->is_success(0);
+ $self->result_code($2);
$self->error_message( $reject{$2} || $processresult->{AUTHORIZATIONRESULT});
$self->failure_status( $failure_status{$2} || 'decline' );
$self->error_message( $reject{$2} || $processresult->{AUTHORIZATIONRESULT});
$self->failure_status( $failure_status{$2} || 'decline' );