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

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

Return to bug 17656