Revision b14c2015
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 758 | 758 |
return $amount; |
| 759 | 759 |
} |
| 760 | 760 |
# |
| 761 |
|
|
| 762 |
sub format_string {
|
|
| 763 |
$main::lxdebug->enter_sub(2); |
|
| 764 |
|
|
| 765 |
my $self = shift; |
|
| 766 |
my $input = shift; |
|
| 767 |
|
|
| 768 |
$input =~ s/(^|[^\#]) \# (\d+) /$1$_[$2 - 1]/gx; |
|
| 769 |
$input =~ s/(^|[^\#]) \#\{(\d+)\}/$1$_[$2 - 1]/gx;
|
|
| 770 |
$input =~ s/\#\#/\#/g; |
|
| 771 |
|
|
| 772 |
$main::lxdebug->leave_sub(2); |
|
| 773 |
|
|
| 774 |
return $input; |
|
| 775 |
} |
|
| 776 |
|
|
| 761 | 777 |
sub parse_amount {
|
| 762 | 778 |
$main::lxdebug->enter_sub(2); |
| 763 | 779 |
|
Auch abrufbar als: Unified diff
Eine Funktion zur Formatierung von Strings, die Vorkommen von "#n" durch das n-te Argument ersetzt. Zur Benutzung mit $locale->text(), sodass die Reihenfolge von Parametern in Übersetzungen verändert werden kann.