From 2d115e33a28a5e8f98d18d371f1503760547674f Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 24 Jun 2018 11:20:39 -0400
Subject: ensure a couple more fields are populated

---
 lib/WWW/YNAB.pm | 15 +++++++++++++++
 t/budget.t      |  3 +++
 2 files changed, 18 insertions(+)

diff --git a/lib/WWW/YNAB.pm b/lib/WWW/YNAB.pm
index b44e004..192b5b0 100644
--- a/lib/WWW/YNAB.pm
+++ b/lib/WWW/YNAB.pm
@@ -117,6 +117,21 @@ sub budget {
 
     my @transactions = map {
         my %transaction = %$_;
+        ($transaction{account_name}) = map {
+            $_->{name}
+        } grep {
+            $_->{id} eq $transaction{account_id}
+        } @{ $budget{accounts} };
+        ($transaction{payee_name}) = map {
+            $_->{name}
+        } grep {
+            $_->{id} eq $transaction{payee_id}
+        } @{ $budget{payees} };
+        ($transaction{category_name}) = map {
+            $_->{name}
+        } grep {
+            $_->{id} eq $transaction{category_id}
+        } @{ $budget{categories} };
         $transaction{subtransactions} = [
             map {
                 $self->model_from_data('WWW::YNAB::SubTransaction', $_)
diff --git a/t/budget.t b/t/budget.t
index f769cfc..3886365 100644
--- a/t/budget.t
+++ b/t/budget.t
@@ -97,6 +97,9 @@ is($transactions[0]->category_id, "33333333-3333-3333-3333-444444444444");
 is($transactions[0]->transfer_account_id, undef);
 is($transactions[0]->import_id, "YNAB:-98760:2018-06-18:1");
 ok(!$transactions[0]->deleted);
+is($transactions[0]->account_name, "Checking Account");
+is($transactions[0]->payee_name, "the power company");
+is($transactions[0]->category_name, "Utilities");
 is(scalar $transactions[0]->subtransactions, 0);
 
 my @subtransactions = $transactions[2]->subtransactions;
-- 
cgit v1.2.3