Revision a4a6a0d3
Von Stephan Köhler vor mehr als 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 627 | 627 |
$amount = $p[0]; |
| 628 | 628 |
$amount .= $d[0].$p[1].(0 x ($places - length $p[1])) if ($places || $p[1] ne ''); |
| 629 | 629 |
|
| 630 |
$amount = ($neg) ? "($amount)" : "$amount" if $dash =~ ?-?; |
|
| 631 |
$amount = ($neg) ? "$amount DR" : "$amount CR" if $dash =~ ?DRCR?; |
|
| 632 |
$amount = ($neg) ? "-$amount" : "$amount" if $dash =~ ??; |
|
| 633 |
reset; |
|
| 630 |
$amount = do {
|
|
| 631 |
($dash =~ /-/) ? ($neg ? "($amount)" : "$amount" ) : |
|
| 632 |
($dash =~ /DRCR/) ? ($neg ? "$amount DR" : "$amount CR" ) : |
|
| 633 |
($neg ? "-$amount" : "$amount" ) ; |
|
| 634 |
}; |
|
| 634 | 635 |
|
| 635 | 636 |
$main::lxdebug->leave_sub(2); |
| 636 | 637 |
return $amount; |
Auch abrufbar als: Unified diff
Nachtag zu r1125, neue format_amount gab keine negativen Zahlen zurueck