X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FLocale%2FString.pm;h=7afcaa4519e7b67fa6c399d5227673fe4073805b;hb=20069819d0de7313f5f6fcc724d0ea35d8fd0bd6;hp=42ceb22a649f100516e234e39236638040d7c32e;hpb=87b0de4c742e6032bcb6bf8750b1d8144e1a9860;p=kivitendo-erp.git diff --git a/SL/Locale/String.pm b/SL/Locale/String.pm index 42ceb22a6..7afcaa451 100644 --- a/SL/Locale/String.pm +++ b/SL/Locale/String.pm @@ -6,6 +6,7 @@ use parent qw(Rose::Object Exporter); use Rose::Object::MakeMethods::Generic ( scalar => [ qw(untranslated) ], + array => [ qw(args) ], ); our @EXPORT = qw(t8); @@ -14,12 +15,14 @@ use overload '""' => \&translated; sub translated { my ($self) = @_; - return $::locale ? $::locale->text($self->untranslated) : $self->untranslated; + return $::locale ? $::locale->text($self->untranslated, $self->args) : $self->untranslated; } sub t8 { - my $string = $_[ ref($_[0]) || ($_[0] eq 'SL::Locale::String') ? 1 : 0 ]; - return SL::Locale::String->new(untranslated => $string); + shift if $_[0] eq __PACKAGE__; + + my $string = shift; + return SL::Locale::String->new(untranslated => $string, args => \@_); } 1;