ensure a couple more fields are populated

1 files changed, 15 insertions, 0 deletions

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', $_)