Revision b14c2015
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
return $amount;
|
||
|
}
|
||
|
#
|
||
|
|
||
|
sub format_string {
|
||
|
$main::lxdebug->enter_sub(2);
|
||
|
|
||
|
my $self = shift;
|
||
|
my $input = shift;
|
||
|
|
||
|
$input =~ s/(^|[^\#]) \# (\d+) /$1$_[$2 - 1]/gx;
|
||
|
$input =~ s/(^|[^\#]) \#\{(\d+)\}/$1$_[$2 - 1]/gx;
|
||
|
$input =~ s/\#\#/\#/g;
|
||
|
|
||
|
$main::lxdebug->leave_sub(2);
|
||
|
|
||
|
return $input;
|
||
|
}
|
||
|
|
||
|
sub parse_amount {
|
||
|
$main::lxdebug->enter_sub(2);
|
||
|
|
||
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.