View | Details | Raw Unified | Return to bug 12338
Collapse All | Expand All

(-)a/C4/Serials.pm (-30 / +25 lines)
Lines 2668-2703 sub _numeration { Link Here
2668
    $num_type //= '';
2668
    $num_type //= '';
2669
    $locale ||= 'en';
2669
    $locale ||= 'en';
2670
    my $string;
2670
    my $string;
2671
    given ($num_type) {
2671
    if ( $num_type =~ /^dayname$/ ) {
2672
        when (/^dayname$/) {
2672
        # 1970-11-01 was a Sunday
2673
            # 1970-11-01 was a Sunday
2673
        $value = $value % 7;
2674
            $value = $value % 7;
2674
        my $dt = DateTime->new(
2675
            my $dt = DateTime->new(
2675
            year    => 1970,
2676
                year    => 1970,
2676
            month   => 11,
2677
                month   => 11,
2677
            day     => $value + 1,
2678
                day     => $value + 1,
2678
            locale  => $locale,
2679
                locale  => $locale,
2679
        );
2680
            );
2680
        $string = $dt->strftime("%A");
2681
            $string = $dt->strftime("%A");
2681
    } elsif ( $num_type =~ /^monthname$/ ) {
2682
        }
2682
        $value = $value % 12;
2683
        when (/^monthname$/) {
2683
        my $dt = DateTime->new(
2684
            $value = $value % 12;
2684
            year    => 1970,
2685
            my $dt = DateTime->new(
2685
            month   => $value + 1,
2686
                year    => 1970,
2686
            locale  => $locale,
2687
                month   => $value + 1,
2687
        );
2688
                locale  => $locale,
2688
        $string = $dt->strftime("%B");
2689
            );
2689
    } elsif ( $num_type =~ /^season$/ ) {
2690
            $string = $dt->strftime("%B");
2690
        my @seasons= qw( Spring Summer Fall Winter );
2691
        }
2691
        $value = $value % 4;
2692
        when (/^season$/) {
2692
        $string = $seasons[$value];
2693
              my @seasons= qw( Spring Summer Fall Winter );
2693
    } else {
2694
              $value = $value % 4;
2694
        $string = $value;
2695
              $string = $seasons[$value];
2696
        }
2697
        default {
2698
            $string = $value;
2699
        }
2700
    }
2695
    }
2696
2701
    return $string;
2697
    return $string;
2702
}
2698
}
2703
2699
2704
- 

Return to bug 12338