Bug 11262: (follow-up) base generation of day name on a week starting with Sunday, not Monday

This fixes test failures reported by
t/db_dependent/Serials/GetNextSeq.t.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
Galen Charlton 2014-05-05 16:27:01 +00:00
parent 758453442b
commit 05949b49bc

View file

@ -2699,11 +2699,11 @@ sub _numeration {
my $string;
given ($num_type) {
when (/^dayname$/) {
# 1970-06-01 was a monday
# 1970-11-01 was a Sunday
$value = $value % 7;
my $dt = DateTime->new(
year => 1970,
month => 6,
month => 11,
day => $value + 1,
locale => $locale,
);