SF.net SVN: ledger-smb:[3488] trunk/LedgerSMB/Num2text.pm

[..hidden..]

Revision: 3488
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3488&view=rev
Author:   einhverfr
Date:     2011-07-11 08:44:34 +0000 (Mon, 11 Jul 2011)

Log Message:
-----------
Correcting check printing as per John Locke's report

Modified Paths:
--------------
    trunk/LedgerSMB/Num2text.pm

Modified: trunk/LedgerSMB/Num2text.pm
===================================================================
--- trunk/LedgerSMB/Num2text.pm	2011-07-11 08:37:57 UTC (rev 3487)
+++ trunk/LedgerSMB/Num2text.pm	2011-07-11 08:44:34 UTC (rev 3488)
@@ -137,8 +137,7 @@
         for ( 1 .. 3 ) {
             push @a, shift @num;
         }
-        #push @numblock, join / /, reverse @a;
-        push @numblock, join(" ", reverse @a);
+        push @numblock, join / /, reverse @a;
     }
 
     while (@numblock) {
@@ -230,8 +229,7 @@
         for ( 1 .. 3 ) {
             push @a, shift @num;
         }
-        #push @numblock, join / /, reverse @a;
-        push @numblock, join(" ", reverse @a);
+        push @numblock, join / /, reverse @a;
     }
 
     my $belowhundred = !$#numblock;
@@ -356,8 +354,7 @@
         for ( 1 .. 3 ) {
             push @a, shift @num;
         }
-        #push @numblock, join / /, reverse @a;
-        push @numblock, join(" ", reverse @a);
+        push @numblock, join / /, reverse @a;
     }
 
     while (@numblock) {
@@ -451,8 +448,7 @@
         for ( 1 .. 3 ) {
             push @a, shift @num;
         }
-        #push @numblock, join / /, reverse @a;
-        push @numblock, join(" ", reverse @a);
+        push @numblock, join / /, reverse @a;
     }
 
     # special case for 1000
@@ -591,8 +587,7 @@
         for ( 1 .. 3 ) {
             push @a, shift @num;
         }
-        #push @numblock, join / /, reverse @a;
-        push @numblock, join(" ", reverse @a);
+        push @numblock, join / /, reverse @a;
     }
 
     my $cent = 0;
@@ -741,8 +736,7 @@
         for ( 1 .. 3 ) {
             push @a, shift @num;
         }
-        #push @numblock, join / /, reverse @a;
-        push @numblock, join(" ", reverse @a);
+        push @numblock, join / /, reverse @a;
     }
     while (@numblock) {
         $i = $#numblock;
@@ -835,8 +829,7 @@
         for ( 1 .. 3 ) {
             push @a, shift @num;
         }
-        #push @numblock, join / /, reverse @a;
-        push @numblock, join(" ", reverse @a);
+        push @numblock, join / /, reverse @a;
     }
 
     while (@numblock) {
@@ -928,8 +921,7 @@
         for ( 1 .. 3 ) {
             push @a, shift @num;
         }
-        #push @numblock, join / /, reverse @a;
-        push @numblock, join(" ", reverse @a);
+        push @numblock, join / /, reverse @a;
     }
 
     while (@numblock) {
@@ -1024,8 +1016,7 @@
         for ( 1 .. 3 ) {
             push @a, shift @num;
         }
-        #push @numblock, join / /, reverse @a;
-        push @numblock, join(" ", reverse @a);
+        push @numblock, join / /, reverse @a;
     }
 
     my $i;
@@ -1139,8 +1130,7 @@
     for (1 .. 3) {
       push @a, shift @num;
     }
-    #push @numblock, join / /, reverse @a;
-    push @numblock, join(" ", reverse @a);
+    push @numblock, join / /, reverse @a;
   }
   
   my $belowhundred = !$#numblock;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.