X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-BatchPayment-BillBuddy.git;a=blobdiff_plain;f=BillBuddy.pm;fp=BillBuddy.pm;h=8eb486033eef0e1773bc6bfe79cbd9cd40465948;hp=5affa4cd0033ef29c0590b3ca813e57d2a56ed1a;hb=c1e83aee8f703eb57a28262da91f59b9eea6838e;hpb=881b2b06e51e7bfa252f3aa614ba84af3ade6487

diff --git a/BillBuddy.pm b/BillBuddy.pm
index 5affa4c..8eb4860 100644
--- 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"
-        unless grep(/^$status$/,('deleted','declined'));
+        unless grep(/^$status$/,('approved','deleted','declined'));
       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)/) {
-        $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'};
       }