@@ -, +, @@ --- Koha/Subscription.pm | 5 ++--- t/Serials/IssueNumber.t | 0 t/db_dependent/Koha/Subscription/GuessEnddate.t | 0 t/db_dependent/Koha/Subscription/Irregularities.t | 0 t/db_dependent/Serials/SubscriptionIrregularity.t | 0 5 files changed, 2 insertions(+), 3 deletions(-) mode change 100644 => 100755 t/Serials/IssueNumber.t mode change 100644 => 100755 t/db_dependent/Koha/Subscription/GuessEnddate.t mode change 100644 => 100755 t/db_dependent/Koha/Subscription/Irregularities.t mode change 100644 => 100755 t/db_dependent/Serials/SubscriptionIrregularity.t --- a/Koha/Subscription.pm +++ a/Koha/Subscription.pm @@ -22,7 +22,6 @@ use Modern::Perl; use Carp; use C4::Serials::Frequency; -use C4::Serials qw(issue_number); use Koha::Database; use Koha::Biblios; @@ -268,7 +267,7 @@ sub guess_irregularities { my $date = $nextexpected->{planneddate}; my ($issuenumber) = C4::Serials::GetFictiveIssueNumber($self->unblessed, $date); - my $dow = issue_number( dt_from_string($date), $frequency->unit ); + my $dow = C4::Serials::issue_number( dt_from_string($date), $frequency->unit ); if ( defined( $permanent_irregularities{$dow} ) ) { push @irregularities, $issuenumber; @@ -277,7 +276,7 @@ sub guess_irregularities { while ( Delta_Days( split(/-/, $date), split(/-/, $enddate) ) >= 0 ) { $issuenumber++; $date = C4::Serials::GetNextDate($self->unblessed, $date); - $dow = issue_number( dt_from_string($date), $frequency->unit ); + $dow = C4::Serials::issue_number( dt_from_string($date), $frequency->unit ); if ( defined( $permanent_irregularities{$dow} ) ) { push @irregularities, $issuenumber;