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

(-)a/Koha/Subscription.pm (-3 / +2 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
22
23
use C4::Serials::Frequency;
23
use C4::Serials::Frequency;
24
use C4::Serials qw(issue_number);
25
24
26
use Koha::Database;
25
use Koha::Database;
27
use Koha::Biblios;
26
use Koha::Biblios;
Lines 267-273 sub guess_irregularities { Link Here
267
    my $date = $nextexpected->{planneddate};
266
    my $date = $nextexpected->{planneddate};
268
267
269
    my ($issuenumber) = C4::Serials::GetFictiveIssueNumber($self->unblessed, $date);
268
    my ($issuenumber) = C4::Serials::GetFictiveIssueNumber($self->unblessed, $date);
270
    my $dow = issue_number( dt_from_string($date), $frequency->unit );
269
    my $dow = C4::Serials::issue_number( dt_from_string($date), $frequency->unit );
271
270
272
    if ( defined( $permanent_irregularities{$dow} ) ) {
271
    if ( defined( $permanent_irregularities{$dow} ) ) {
273
        push @irregularities, $issuenumber;
272
        push @irregularities, $issuenumber;
Lines 276-282 sub guess_irregularities { Link Here
276
    while ( Delta_Days( split(/-/, $date), split(/-/, $enddate) ) >= 0 ) {
275
    while ( Delta_Days( split(/-/, $date), split(/-/, $enddate) ) >= 0 ) {
277
        $issuenumber++;
276
        $issuenumber++;
278
        $date = C4::Serials::GetNextDate($self->unblessed, $date);
277
        $date = C4::Serials::GetNextDate($self->unblessed, $date);
279
        $dow = issue_number( dt_from_string($date), $frequency->unit );
278
        $dow = C4::Serials::issue_number( dt_from_string($date), $frequency->unit );
280
279
281
        if ( defined( $permanent_irregularities{$dow} ) ) {
280
        if ( defined( $permanent_irregularities{$dow} ) ) {
282
            push @irregularities, $issuenumber;
281
            push @irregularities, $issuenumber;

Return to bug 17656