diff options
Diffstat (limited to 'LedgerSMB.pm')
-rwxr-xr-x | LedgerSMB.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm index 3fe186b9..4ba0b0cf 100755 --- a/LedgerSMB.pm +++ b/LedgerSMB.pm @@ -375,6 +375,7 @@ sub format_amount { my $amount = $args{amount}; my $places = $args{precision}; my $dash = $args{neg_format}; + print STDERR "Formatting $amount in format $myconfig->{numberformat}\n"; my $negative; if ($amount) { @@ -767,6 +768,7 @@ sub merge { if (defined $args{keys}){ @keys = @{ $args{keys} }; } + print STDERR 'Merging ' . scalar @keys . " keys\n"; my $index = $args{index}; if ( !scalar @keys ) { @keys = keys %{$src}; |