Jahreszahlen mit vier Ziffern ausgeben

Seit 2000 ist es eher unüblich, Jahreszahlen zweistellig zu
schreiben. Außerdem enthalten alle Nicht-ISO-Datumsformate in
Lx-Office bisher nur zwei Stellen bei der Ausgabe (z.B. beim
Ausdruck). Also umstellen auf volle Jahreslänge.

Fix für Bug 1072.

diff --git a/SL/Locale.pm b/SL/Locale.pm
index d6ac181..8700873 100644 (file)
--- a/SL/Locale.pm
+++ b/SL/Locale.pm
@@ -358,11 +358,7 @@ sub reformat_date {
     sprintf("%0" . (length($&)) . "d", $mm);
 
   $output_format =~ /y+/;
-  if (length($&) == 2) {
-    $yy -= $yy >= 2000 ? 2000 : 1900;
-  }
-  substr($output_format, $-[0], $+[0] - $-[0]) =
-    sprintf("%0" . (length($&)) . "d", $yy);
+  substr($output_format, $-[0], $+[0] - $-[0]) = $yy;
 
   $main::lxdebug->leave_sub();