$locale->text() so erweitert, dass weitere Argumente direkt an Form::format_string...

diff --git a/SL/Locale.pm b/SL/Locale.pm
index a6756fe..5454e74 100644 (file)
--- a/SL/Locale.pm
+++ b/SL/Locale.pm
@@ -91,13 +91,20 @@ sub new {
 }
 
 sub text {
-  my ($self, $text) = @_;
+  my $self = shift;
+  my $text = shift;
 
   if (exists $self->{texts}->{$text}) {
-    return $self->{iconv}->convert($self->{texts}->{$text});
+    $text = $self->{iconv}->convert($self->{texts}->{$text});
+  } else {
+    $text = $self->{iconv_english}->convert($text);
   }
 
-  return $self->{iconv_english}->convert($text);
+  if (@_) {
+    $text = Form->format_string($text, @_);
+  }
+
+  return $text;
 }
 
 sub findsub {

diff --git a/locale/de/locales.pl b/locale/de/locales.pl
index 5bf5610..70ca6d2 100755 (executable)
--- a/locale/de/locales.pl
+++ b/locale/de/locales.pl
@@ -277,7 +277,7 @@ sub extract_text_between_parenthesis {
       } elsif (($cur_char eq '"') || ($cur_char eq '\'')) {
         $inside_string = $cur_char;
 
-      } elsif ($cur_char eq ")") {
+      } elsif (($cur_char eq ")") || ($cur_char eq ',')) {
         return ($text, substr($line, $pos + 1));
       }