Revision 582f4e7c
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 647 | 647 |
$amount = $p[0]; |
| 648 | 648 |
$amount .= $d[0].$p[1].(0 x ($places - length $p[1])) if ($places || $p[1] ne ''); |
| 649 | 649 |
|
| 650 |
$amount = ($neg) ? "($amount)" : "$amount" if $dash =~ ?-?; |
|
| 651 |
$amount = ($neg) ? "$amount DR" : "$amount CR" if $dash =~ ?DRCR?; |
|
| 652 |
$amount = ($neg) ? "-$amount" : "$amount" if $dash =~ ??; |
|
| 653 |
reset; |
|
| 650 |
$amount = do {
|
|
| 651 |
($dash =~ /-/) ? ($neg ? "($amount)" : "$amount" ) : |
|
| 652 |
($dash =~ /DRCR/) ? ($neg ? "$amount DR" : "$amount CR" ) : |
|
| 653 |
($neg ? "-$amount" : "$amount" ) ; |
|
| 654 |
}; |
|
| 654 | 655 |
|
| 655 | 656 |
$main::lxdebug->leave_sub(2); |
| 656 | 657 |
return $amount; |
Auch abrufbar als: Unified diff
Recommit von r1152 von skoehler: Nachtag zu r1125, neue format_amount gab keine negativen Zahlen zurueck