projects
/
Business-BatchPayment-BillBuddy.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
72219: High-Priority: Electronic Check Batches, BillBuddy [download fixes]
[Business-BatchPayment-BillBuddy.git]
/
BillBuddy.pm
diff --git
a/BillBuddy.pm
b/BillBuddy.pm
index
5affa4c
..
8eb4860
100644
(file)
--- a/
BillBuddy.pm
+++ b/
BillBuddy.pm
@@
-338,7
+338,7
@@
sub download {
my $error = '';
next if grep(/^$status$/,('submitted','processing','scheduled'));
$error = "Unknown return status: $status"
my $error = '';
next if grep(/^$status$/,('submitted','processing','scheduled'));
$error = "Unknown return status: $status"
- unless grep(/^$status$/,('deleted','declined'));
+ unless grep(/^$status$/,('
approved','
deleted','declined'));
my $item = Business::BatchPayment->create(Item =>
order_number => $tid,
tid => $resp->{'ResponseData'}->{'referencenumber'},
my $item = Business::BatchPayment->create(Item =>
order_number => $tid,
tid => $resp->{'ResponseData'}->{'referencenumber'},
@@
-347,7
+347,15
@@
sub download {
authorization => '',
);
if ($resp->{'ResponseData'}->{'actualprocessdate'} =~ /^(\d\d\d\d).(\d\d).(\d\d)/) {
authorization => '',
);
if ($resp->{'ResponseData'}->{'actualprocessdate'} =~ /^(\d\d\d\d).(\d\d).(\d\d)/) {
- $item->payment_date($1.'-'.$2.'-'.$3);
+ $item->payment_date(
+ DateTime->new(
+ year => $1,
+ month => $2,
+ day => $3,
+ # this appears to be the tz being passed by BillBuddy
+ time_zone => 'Australia/Queensland',
+ )
+ );
} else {
warn "Could not parse actualprocessdate ".$resp->{'ResponseData'}->{'actualprocessdate'};
}
} else {
warn "Could not parse actualprocessdate ".$resp->{'ResponseData'}->{'actualprocessdate'};
}