X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/76c486e3bf157e844b0cf11828d55dae2cb7e439..b68c23bf6e98cf678081dcaa84a8593b10aaff29:/SL/Locale.pm

diff --git a/SL/Locale.pm b/SL/Locale.pm
index b869587ca..87008734a 100644
--- a/SL/Locale.pm
+++ b/SL/Locale.pm
@@ -215,7 +215,7 @@ sub findsub {
   if (exists $self->{subs}{$text_rev}) {
     $text = $self->{subs}{$text_rev};
   } elsif ($self->{countrycode} && $self->{NLS_file}) {
-    Form->error("$text not defined in locale/$self->{countrycode}/$self->{NLS_file}");
+    $main::form->error("$text not defined in locale/$self->{countrycode}/$self->{NLS_file}");
   }
 
   $main::lxdebug->leave_sub();
@@ -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();