diff options
| author | ivan <ivan> | 2004-11-15 10:35:56 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-11-15 10:35:56 +0000 |
| commit | 5fc8c5edf574ab024d4646914b6432d458e2ffbd (patch) | |
| tree | c8031ae966b35c47f6aea9929e10911412ff6c59 /sql-ledger/SL/Num2text.pm | |
| parent | a4fc489e860b7bc51b5282a87ea21750b30b905e (diff) | |
| parent | 32306b5f8ffe4ce594409aa6e89626740b225a39 (diff) | |
This commit was generated by cvs2svn to compensate for changes in r3883,
which included commits to RCS files with non-trunk default branches.
Diffstat (limited to 'sql-ledger/SL/Num2text.pm')
| -rw-r--r-- | sql-ledger/SL/Num2text.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sql-ledger/SL/Num2text.pm b/sql-ledger/SL/Num2text.pm index f09121c23..06eee7183 100644 --- a/sql-ledger/SL/Num2text.pm +++ b/sql-ledger/SL/Num2text.pm @@ -1,6 +1,6 @@ #===================================================================== # SQL-Ledger Accounting -# Copyright (C) 2001 +# Copyright (C) 2002 # # Author: Dieter Simader # Email: dsimader@sql-ledger.org @@ -77,7 +77,7 @@ sub num2text { my @textnumber = (); # split amount into chunks of 3 - my @num = reverse split //, $amount; + my @num = reverse split //, abs($amount); my @numblock = (); my @a; my $i; |