Revision 1e846de1
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/Locale.pm | ||
|---|---|---|
| 539 | 539 |
return $self->{local_time_zone};
|
| 540 | 540 |
} |
| 541 | 541 |
|
| 542 |
sub language_join {
|
|
| 543 |
my ($self, $items, %params) = @_; |
|
| 544 |
|
|
| 545 |
$items ||= []; |
|
| 546 |
$params{conjunction} ||= $::locale->text('and');
|
|
| 547 |
my $num = scalar @{ $items };
|
|
| 548 |
|
|
| 549 |
return 0 == $num ? '' |
|
| 550 |
: 1 == $num ? $items->[0] |
|
| 551 |
: join(', ', @{ $items }[0..$num - 2]) . ' ' . $params{conjunction} . ' ' . $items->[$num - 1];
|
|
| 552 |
} |
|
| 553 |
|
|
| 542 | 554 |
1; |
| 555 |
|
|
| 543 | 556 |
__END__ |
| 544 | 557 |
|
| 545 | 558 |
=pod |
| locale/de/all | ||
|---|---|---|
| 2344 | 2344 |
'action= not defined!' => 'action= nicht definiert!', |
| 2345 | 2345 |
'active' => 'aktiv', |
| 2346 | 2346 |
'all entries' => 'alle Einträge', |
| 2347 |
'and' => 'und', |
|
| 2347 | 2348 |
'ap_aging_list' => 'liste_offene_verbindlichkeiten', |
| 2348 | 2349 |
'ar_aging_list' => 'liste_offene_forderungen', |
| 2349 | 2350 |
'as at' => 'zum Stand', |
Auch abrufbar als: Unified diff
SL::Locale::language_join: Arrays menschenlesbar ausgeben
z.B. für @ary = qw(links rechts oben): "links, rechts und oben"