projects
/
Business-OnlinePayment-Bambora.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Implement B::OP failure_status for declines
[Business-OnlinePayment-Bambora.git]
/
lib
/
Business
/
OnlinePayment
/
Bambora.pm
diff --git
a/lib/Business/OnlinePayment/Bambora.pm
b/lib/Business/OnlinePayment/Bambora.pm
index
ea1a698
..
d872f2c
100755
(executable)
--- a/
lib/Business/OnlinePayment/Bambora.pm
+++ b/
lib/Business/OnlinePayment/Bambora.pm
@@
-42,6
+42,7
@@
sub set_defaults {
card_token
expiry_month
expiry_year
card_token
expiry_month
expiry_year
+ failure_status
invoice_number
message_id
payment_method
invoice_number
message_id
payment_method
@@
-455,6
+456,10
@@
sub submit_api_request {
$self->is_success( 0 );
$self->result_code( $response->{code} );
$self->is_success( 0 );
$self->result_code( $response->{code} );
+ if ( $response->{message} =~ /decline/i ) {
+ $self->failure_status('declined');
+ }
+
return $self->error_message(
sprintf '%s %s',
$response->{code},
return $self->error_message(
sprintf '%s %s',
$response->{code},