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

(-)a/C4/Serials.pm (-1 / +1 lines)
Lines 2511-2517 sub _numeration { Link Here
2511
            locale  => $locale,
2511
            locale  => $locale,
2512
        );
2512
        );
2513
        $string = $num_type =~ /^monthname$/
2513
        $string = $num_type =~ /^monthname$/
2514
            ? $dt->strftime("%B")
2514
            ? $dt->format_cldr( "LLLL" )
2515
            : $dt->strftime("%b");
2515
            : $dt->strftime("%b");
2516
    } elsif ( $num_type =~ /^season$/ ) {
2516
    } elsif ( $num_type =~ /^season$/ ) {
2517
        my @seasons= qw( Spring Summer Fall Winter );
2517
        my @seasons= qw( Spring Summer Fall Winter );
(-)a/t/db_dependent/Serials.t (-2 / +20 lines)
Lines 16-22 use Koha::DateUtils qw( dt_from_string output_pref ); Link Here
16
use Koha::Acquisition::Booksellers;
16
use Koha::Acquisition::Booksellers;
17
use t::lib::Mocks;
17
use t::lib::Mocks;
18
use t::lib::TestBuilder;
18
use t::lib::TestBuilder;
19
use Test::More tests => 49;
19
use Test::More tests => 50;
20
20
21
BEGIN {
21
BEGIN {
22
    use_ok('C4::Serials', qw( updateClaim NewSubscription GetSubscription GetSubscriptionHistoryFromSubscriptionId SearchSubscriptions ModSubscription GetExpirationDate GetSerials GetSerialInformation NewIssue AddItem2Serial DelSubscription GetFullSubscription PrepareSerialsData GetSubscriptionsFromBiblionumber ModSubscriptionHistory GetSerials2 GetLatestSerials GetNextSeq GetSeq CountSubscriptionFromBiblionumber ModSerialStatus findSerialsByStatus HasSubscriptionStrictlyExpired HasSubscriptionExpired GetLateOrMissingIssues check_routing addroutingmember GetNextDate ));
22
    use_ok('C4::Serials', qw( updateClaim NewSubscription GetSubscription GetSubscriptionHistoryFromSubscriptionId SearchSubscriptions ModSubscription GetExpirationDate GetSerials GetSerialInformation NewIssue AddItem2Serial DelSubscription GetFullSubscription PrepareSerialsData GetSubscriptionsFromBiblionumber ModSubscriptionHistory GetSerials2 GetLatestSerials GetNextSeq GetSeq CountSubscriptionFromBiblionumber ModSerialStatus findSerialsByStatus HasSubscriptionStrictlyExpired HasSubscriptionExpired GetLateOrMissingIssues check_routing addroutingmember GetNextDate ));
Lines 451-453 subtest "NewSubscription|ModSubscription" => sub { Link Here
451
    is( $serials->count, 1, "Still only one serial" );
451
    is( $serials->count, 1, "Still only one serial" );
452
    is( $serials->next->biblionumber, $biblio_2->biblionumber, 'ModSubscription should have updated serial.biblionumber');
452
    is( $serials->next->biblionumber, $biblio_2->biblionumber, 'ModSubscription should have updated serial.biblionumber');
453
};
453
};
454
- 
454
455
subtest "_numeration" => sub {
456
457
    plan tests => 6;
458
459
    my $s = C4::Serials::_numeration(0, 'monthname', 'cat');
460
    is( $s, "gener" );
461
    $s = C4::Serials::_numeration(0, 'monthname', 'es');
462
    is( $s, "enero" );
463
    $s = C4::Serials::_numeration(0, 'monthname', 'fr');
464
    is( $s, "janvier" );
465
466
    $s = C4::Serials::_numeration(0, 'monthabrv', 'cat');
467
    is( $s, "de gen." );
468
    $s = C4::Serials::_numeration(0, 'monthabrv', 'es');
469
    is( $s, "ene" );
470
    $s = C4::Serials::_numeration(0, 'monthabrv', 'fr');
471
    is( $s, "janv." );
472
};

Return to bug 30035