add option to convert budget

[chaz/homebank2ledger] / lib / File / HomeBank.pm

diff --git a/lib/File/HomeBank.pm b/lib/File/HomeBank.pm
index c786fddcf419a607d8c07f0f3eb78280a51bd93a..0034ac831edd49ecb4b7cfab9b3519e4bbe367ad 100644 (file)
--- a/lib/File/HomeBank.pm
+++ b/lib/File/HomeBank.pm
@@ -575,6 +575,10 @@ sub parse_string {
                         $attr{flags}{$name} = $flags & (1 << $shift) ? 1 : 0;
                     }
 
+                    for my $bnum (0 .. 12) {
+                        $attr{budget_amounts}[$bnum] = delete $attr{"b$bnum"} if $attr{"b$bnum"};
+                    }
+
                     push @categories, \%attr;
                 }
                 elsif ($node eq 'ope') {    # transaction