Revision c836425c
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Locale.pm | ||
|---|---|---|
| 91 | 91 |
} |
| 92 | 92 |
|
| 93 | 93 |
sub text {
|
| 94 |
my ($self, $text) = @_; |
|
| 94 |
my $self = shift; |
|
| 95 |
my $text = shift; |
|
| 95 | 96 |
|
| 96 | 97 |
if (exists $self->{texts}->{$text}) {
|
| 97 |
return $self->{iconv}->convert($self->{texts}->{$text});
|
|
| 98 |
$text = $self->{iconv}->convert($self->{texts}->{$text});
|
|
| 99 |
} else {
|
|
| 100 |
$text = $self->{iconv_english}->convert($text);
|
|
| 98 | 101 |
} |
| 99 | 102 |
|
| 100 |
return $self->{iconv_english}->convert($text);
|
|
| 103 |
if (@_) {
|
|
| 104 |
$text = Form->format_string($text, @_); |
|
| 105 |
} |
|
| 106 |
|
|
| 107 |
return $text; |
|
| 101 | 108 |
} |
| 102 | 109 |
|
| 103 | 110 |
sub findsub {
|
| locale/de/locales.pl | ||
|---|---|---|
| 277 | 277 |
} elsif (($cur_char eq '"') || ($cur_char eq '\'')) {
|
| 278 | 278 |
$inside_string = $cur_char; |
| 279 | 279 |
|
| 280 |
} elsif ($cur_char eq ")") {
|
|
| 280 |
} elsif (($cur_char eq ")") || ($cur_char eq ',')) {
|
|
| 281 | 281 |
return ($text, substr($line, $pos + 1)); |
| 282 | 282 |
} |
| 283 | 283 |
|
Auch abrufbar als: Unified diff
$locale->text() so erweitert, dass weitere Argumente direkt an Form::format_string() übergeben werden. Damit muss man nicht mehr $form->format_string($locale->text("#1 and #2"), $arg1, $arg2) schreiben, sondern kann direkt $locale->text("#1 and #2", $arg1, $arg2) schreiben.