use Getopt::Long 2.38 qw(GetOptionsFromArray);
use Pod::Usage;
-our $VERSION = '0.007'; # VERSION
+our $VERSION = '0.008'; # VERSION
my %ACCOUNT_TYPES = ( # map HomeBank account types to Ledger accounts
bank => 'Assets:Bank',
my $account = $homebank->find_account_by_key($transaction->{account});
my $amount = $transaction->{amount};
my $status = $STATUS_SYMBOLS{$transaction->{status} || ''} || '';
- my $paymode = $transaction->{paymode} || ''; # internaltransfer
my $memo = $transaction->{wording} || '';
my $payee = $homebank->find_payee_by_key($transaction->{payee});
my $tags = _split_tags($transaction->{tags});
tags => $tags,
};
- if ($paymode eq 'internaltransfer') {
+ if ($transaction->{dst_account}) { # is an internal transfer
my $paired_transaction = $homebank->find_transaction_transfer_pair($transaction);
my $dst_account = $homebank->find_account_by_key($transaction->{dst_account});
=head1 VERSION
-version 0.007
+version 0.008
=head1 SYNOPSIS