Funktion LxERP.t8() analog zum Filter [% ... | $T8 %] implementiert.

Hintergrund: Will man einen zu übersetzenden Begriff an eine Funktion
übergeben, so geht das mit der Filtersyntax leider
nicht. Beispielsweise geht weder

  [% JavaScript.confirm('Are you sure?' | $T8) %]

(Syntaxfehler vom Template-Modul), noch geht

  [% SET t8='Are you sure?' | $T8; JavaScript.confirm(t8) %]

(hier steht in t8 der unübersetzte Begriff, und es ist
hässlich). Jetzt kann man aber optional folgendes schreiben:

  [% JavaScript.confirm(LxERP.t8('Are you sure?')) %]

Conflicts:

	locale/de/locales.pl

diff --git a/SL/Template/Plugin/LxERP.pm b/SL/Template/Plugin/LxERP.pm
index c26988beb3405c23580eee98a1a92d30a6e488f3..df6cb6ad6cb4944131bb4e96f0063a5eceeef60c 100644 (file)
--- a/SL/Template/Plugin/LxERP.pm
+++ b/SL/Template/Plugin/LxERP.pm
@@ -106,4 +106,10 @@ sub abs {
   return $var < 0 ? $var * -1 : $var;
 }
 
   return $var < 0 ? $var * -1 : $var;
 }
 

+sub t8 {
+  my ($self, $text, $args) = @_;
+  $self->{locale} ||= Locale->new($::myconfig{countrycode}, 'all');
+  return $self->{locale}->text($text, @{ $args || [] });
+}
+

 1;
 1;

diff --git a/locale/de/locales.pl b/locale/de/locales.pl
index 399af2853dad60b73c1284b0e545396eaecac6bd..e529d548e2b09775fe32ec7f758c4efcae5a364f 100755 (executable)
--- a/locale/de/locales.pl
+++ b/locale/de/locales.pl
@@ -566,19 +566,27 @@ sub scanhtmlfile {
         $plugins{needed}->{$plugin} = 1 if (first { $_ eq $plugin } qw(HTML LxERP JavaScript MultiColumnIterator));
       }
 
         $plugins{needed}->{$plugin} = 1 if (first { $_ eq $plugin } qw(HTML LxERP JavaScript MultiColumnIterator));
       }
 

-      while ($line =~ m/\[\%            # Template-Start-Tag
-                        [\-~#]*         # Whitespace-Unterdrückung
-                        \s*             # Optional beliebig viele Whitespace
-                        [\'\"]          # Anfang des zu übersetzenden Strings
-                        (.*?)           # Der zu übersetzende String
-                        [\'\"]          # Ende des zu übersetzenden Strings
-                        \s*\|\s*        # Pipe-Zeichen mit optionalen Whitespace davor und danach
-                        \$T8            # Filteraufruf
-                        .*?             # Optionale Argumente für den Filter und Whitespaces
-                        [\-~#]*         # Whitespace-Unterdrückung
-                        \%\]            # Template-Ende-Tag
+      while ($line =~ m/(?:             # Start von Variante 1: LxERP.t8('...'); ohne darumliegende [% ... %]-Tags
+                          LxERP\.t8\(   #   LxERP.t8(
+                          [\'\"]        #   Anfang des zu übersetzenden Strings
+                          (.*?)         #   Der zu übersetzende String
+                          [\'\"]        #   Ende des zu übersetzenden Strings
+                        |               # Start von Variante 2: [% '...' | $T8 %]
+                          \[\%          #   Template-Start-Tag
+                          [\-~#]*       #   Whitespace-Unterdrückung
+                          \s*           #   Optional beliebig viele Whitespace
+                          [\'\"]        #   Anfang des zu übersetzenden Strings
+                          (.*?)         #   Der zu übersetzende String
+                          [\'\"]        #   Ende des zu übersetzenden Strings
+                          \s*\|\s*      #   Pipe-Zeichen mit optionalen Whitespace davor und danach
+                          \$T8          #   Filteraufruf
+                          .*?           #   Optionale Argumente für den Filter
+                          \s*           #   Whitespaces
+                          [\-~#]*       #   Whitespace-Unterdrückung
+                          \%\]          #   Template-Ende-Tag
+                        )

                        /ix) {
                        /ix) {

-        my $string = $1;
+        my $string = $1 || $2;

         print "Found filter >>>$string<<<\n" if $debug;
         substr $line, $LAST_MATCH_START[1], $LAST_MATCH_END[0] - $LAST_MATCH_START[0], '';
 
         print "Found filter >>>$string<<<\n" if $debug;
         substr $line, $LAST_MATCH_START[1], $LAST_MATCH_END[0] - $LAST_MATCH_START[0], '';