From 484f4f00ff319bf97c5ca911313738aa05a63a2c Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 7 Jul 2008 17:37:20 +0000
Subject: 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
---
 LedgerSMB.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'LedgerSMB.pm')

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};
-- 
cgit v1.2.3