use Business::OnlinePayment;
@ISA = qw(Business::OnlinePayment);
-$VERSION = '0.09_02';
+$VERSION = '0.11';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
$post_data{debug} = 'true';
}
- $post_data{'cargs'} = '-k -m 300 -s -S' if $self->test_transaction;
+ $post_data{'cargs'} = '-k -m 300 -s -S'; #if $self->test_transaction;
# avoid some uninitialized warnings in lpperl.pm
foreach (qw(webspace debug debugging)) { $post_data{$_} ||= '' }
warn "$_ => $response{$_}\n" for keys %response;
}
- if ( $response{'r_approved'} eq 'APPROVED' ) {
+ if ( $response{'r_approved'} eq 'APPROVED'
+ or ( $self->transaction_type() =~ /^e?check$/i
+ && $response{'r_approved'} eq 'SUBMITTED'
+ )
+ )
+ {
$self->is_success(1);
$self->result_code($response{'r_code'});
$self->authorization($response{'r_ref'});