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

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

Return to bug 17656