format payees and memo on transactions

[chaz/homebank2ledger] / lib / App / HomeBank2Ledger.pm

diff --git a/lib/App/HomeBank2Ledger.pm b/lib/App/HomeBank2Ledger.pm
index 52f426783dbbc815757b1f661953ebcd7df421a8..2075bd80e2227547b41cde202b2a7b62f0f120f0 100644 (file)
--- a/lib/App/HomeBank2Ledger.pm
+++ b/lib/App/HomeBank2Ledger.pm
@@ -11,13 +11,6 @@ This module is part of the L<homebank2ledger> script.
 
 =cut
 
 
 =cut
 

-# TODO - add posting memo
-# TODO - transaction description ("narration" in beancount)
-# TODO - payees
-# TODO - budget/scheduled
-# TODO - consolidate tags on transaction
-# TODO - consolidate payees on transaction
-

 use warnings FATAL => 'all';    # temp fatal all
 use strict;
 
 use warnings FATAL => 'all';    # temp fatal all
 use strict;
 


@@ -198,7 +191,7 @@ sub convert_homebank_to_ledger {
     }
 
     if ($has_initial_balance) {
     }
 
     if ($has_initial_balance) {

-        # transactions are sorted, so the first transaction is the earliest
+        # transactions are sorted, so the first transaction is the oldest

         my $first_date = $opts->{opening_date} || $transactions->[0]{date};
         if ($first_date !~ /^\d{4}-\d{2}-\d{2}$/) {
             die "Opening date must be in the form YYYY-MM-DD.\n";
         my $first_date = $opts->{opening_date} || $transactions->[0]{date};
         if ($first_date !~ /^\d{4}-\d{2}-\d{2}$/) {
             die "Opening date must be in the form YYYY-MM-DD.\n";


@@ -313,7 +306,7 @@ sub convert_homebank_to_ledger {
                 commodity   => $commodities{$account->{currency}},
                 amount      => -$transaction->{amount},
                 payee       => $payee->{name},
                 commodity   => $commodities{$account->{currency}},
                 amount      => -$transaction->{amount},
                 payee       => $payee->{name},

-                memo        => '',  # TODO
+                memo        => $memo,

                 status      => $status,
                 tags        => $tags,
             };
                 status      => $status,
                 tags        => $tags,
             };


@@ -328,7 +321,8 @@ sub convert_homebank_to_ledger {
 
         $ledger->add_transactions({
             date        => $transaction->{date},
 
         $ledger->add_transactions({
             date        => $transaction->{date},

-            payee       => 'Payee TODO',
+            payee       => $payee->{name},
+            memo        => $memo,

             postings    => \@postings,
         });
     }
             postings    => \@postings,
         });
     }