From 95826a5b620af1cf1c57c6dd23f0b489dbe9b551 Mon Sep 17 00:00:00 2001 From: Alex Arnaud Date: Fri, 5 Mar 2021 14:22:53 +0100 Subject: [PATCH] Bug 17656: QA warnings fixes Signed-off-by: Amarangi Signed-off-by: Victor Grousset/tuxayo Signed-off-by: David Nind --- Koha/Subscription.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Koha/Subscription.pm b/Koha/Subscription.pm index 0ad06feacce..f6fa74c5c48 100644 --- a/Koha/Subscription.pm +++ b/Koha/Subscription.pm @@ -20,7 +20,6 @@ package Koha::Subscription; use Modern::Perl; use C4::Serials::Frequency; -use C4::Serials qw(issue_number); use Koha::Database; use Koha::Biblios; @@ -263,7 +262,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; @@ -272,7 +271,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; -- 2.34.1