summaryrefslogtreecommitdiff
path: root/sql-ledger/locale/it/Num2text
diff options
context:
space:
mode:
authorivan <ivan>2004-11-15 10:35:56 +0000
committerivan <ivan>2004-11-15 10:35:56 +0000
commit5fc8c5edf574ab024d4646914b6432d458e2ffbd (patch)
treec8031ae966b35c47f6aea9929e10911412ff6c59 /sql-ledger/locale/it/Num2text
parenta4fc489e860b7bc51b5282a87ea21750b30b905e (diff)
parent32306b5f8ffe4ce594409aa6e89626740b225a39 (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/locale/it/Num2text')
-rw-r--r--sql-ledger/locale/it/Num2text7
1 files changed, 3 insertions, 4 deletions
diff --git a/sql-ledger/locale/it/Num2text b/sql-ledger/locale/it/Num2text
index fccc1d4cc..1ec24ea69 100644
--- a/sql-ledger/locale/it/Num2text
+++ b/sql-ledger/locale/it/Num2text
@@ -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 ($i, $appendn);
my @a = ();
@@ -146,9 +146,8 @@ sub format_ten {
if ($num[1] == 0) {
$textnumber = $self->{numbername}{$amount};
} else {
- $amount = $num[0] * 10;
- $textnumber = $self->{numbername}{$amount}.$self->{numbername}{$num[1]};
- }
+ $amount = $num[0] * 10;
+ $textnumber = $self->{numbername}{$amount}.$self->{numbername}{$num[1]};
}
} else {
$textnumber = $self->{numbername}{$amount};