Add a hack to readd the day of weeks in default date formats

This commit is contained in:
Baptiste Daroussin 2016-05-28 21:25:24 +00:00
parent c563bbe1a9
commit ab3cca7f9b
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=300913

View File

@ -196,19 +196,23 @@ if ($TYPE eq "timedef") {
}
sub callback_cformat {
my $s = shift;
$s =~ s/ %Z//;
$s =~ s/ %z//;
return $s;
my $s = shift;
$s =~ s/ %Z//;
$s =~ s/ %z//;
$s =~ s/^"(%B %e, )/"%a, $1/;
$s =~ s/^"(%e %B )/"%a $1/;
return $s;
};
sub callback_dtformat {
my $s = shift;
my $s = shift;
my $nl = $callback{data}{l} . "_" . $callback{data}{c};
if ($nl eq 'ja_JP') {
$s =~ s/(> )(%H)/$1%A $2/;
$s =~ s/(> )(%H)/$1%A $2/;
}
$s =~ s/^"(%B %e, )/"%a, $1/;
$s =~ s/^"(%e %B )/"%a $1/;
return $s;
};