X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/87b0de4c742e6032bcb6bf8750b1d8144e1a9860..refs/heads/price_source:/SL/Locale/String.pm

diff --git a/SL/Locale/String.pm b/SL/Locale/String.pm
index 42ceb22a6..e05ae6abe 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,18 @@ 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 => [ @_ ]);
+}
+
+sub TO_JSON {
+  return $_[0]->translated;
 }
 
 1;