use SL::Common;
use SL::Inifile;
+use strict;
+
sub new {
$main::lxdebug->enter_sub();
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();
my $longdate = "";
my $longmonth = ($longformat) ? 'LONG_MONTH' : 'SHORT_MONTH';
+ my ($spc, $yy, $mm, $dd);
+
if ($date) {
# get separator
$main::lxdebug->enter_sub();
my ($self, $myconfig, $date, $longformat) = @_;
+ my ($spc, $yy, $mm, $dd);
unless ($date) {
$main::lxdebug->leave_sub();
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();