Correcting all check printing issues on my secondary testing instance

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2190 4979c152-3d1c-0410-bac9-87ea11338e46

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};