Revision 1e846de1
Von Moritz Bunkus vor fast 12 Jahren hinzugefügt
| SL/Locale.pm | ||
|---|---|---|
|
return $self->{local_time_zone};
|
||
|
}
|
||
|
|
||
|
sub language_join {
|
||
|
my ($self, $items, %params) = @_;
|
||
|
|
||
|
$items ||= [];
|
||
|
$params{conjunction} ||= $::locale->text('and');
|
||
|
my $num = scalar @{ $items };
|
||
|
|
||
|
return 0 == $num ? ''
|
||
|
: 1 == $num ? $items->[0]
|
||
|
: join(', ', @{ $items }[0..$num - 2]) . ' ' . $params{conjunction} . ' ' . $items->[$num - 1];
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
__END__
|
||
|
|
||
|
=pod
|
||
| locale/de/all | ||
|---|---|---|
|
'action= not defined!' => 'action= nicht definiert!',
|
||
|
'active' => 'aktiv',
|
||
|
'all entries' => 'alle Einträge',
|
||
|
'and' => 'und',
|
||
|
'ap_aging_list' => 'liste_offene_verbindlichkeiten',
|
||
|
'ar_aging_list' => 'liste_offene_forderungen',
|
||
|
'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"