From a7d906be599d13f0e0477987437540243ce886d3 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 3 Mar 2010 12:14:36 +0100
Subject: [PATCH] Jahreszahlen mit vier Ziffern ausgeben
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

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.
---
 SL/Locale.pm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/SL/Locale.pm b/SL/Locale.pm
index d6ac18157..87008734a 100644
--- 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();
 
-- 
2.20.1