#=====================================================================
# SQL-Ledger Accounting
-# Copyright (C) 2001
+# Copyright (C) 2002
#
# Author: Dieter Simader
# Email: dsimader@sql-ledger.org
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;