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

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

Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/C4/Serials.pm b/C4/Serials.pm
index 380ec7d..560f90e 100644 (file)
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -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,
             );