Add a hack to readd the day of weeks in default date formats
This commit is contained in:
parent
c563bbe1a9
commit
ab3cca7f9b
Notes:
svn2git
2020-12-20 02:59:44 +00:00
svn path=/head/; revision=300913
@ -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;
|
||||
};
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user