From 664fe2816e0f994cdb4aab0ab2c48d26796264c8 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 2 Oct 2020 12:11:48 -0400 Subject: [PATCH] Bug 26604: "Generate next" button gives error on serials-collection.pl In serials-collection.pl, the line $frequency = C4::Serials::Frequency::GetSubscriptionFrequency($subscription->{periodicity}); causes the error Can't use string ("13") as a HASH ref while "strict refs" in use at /usr/share/koha/lib/C4/Serials.pm line 2198. This function call makes no sense, that subroutine always returns a list and doesn't take any parameters. I think it was meant to be GetSubscriptionFrequency which is in fact already called a few lines down. --- serials/serials-collection.pl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/serials/serials-collection.pl b/serials/serials-collection.pl index c6b0f44901..e36e50e0f8 100755 --- a/serials/serials-collection.pl +++ b/serials/serials-collection.pl @@ -77,7 +77,7 @@ if($op eq 'gennext' && @subscriptionid){ require C4::Serials::Numberpattern; my $subscription = GetSubscription($subscriptionid); my $pattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subscription->{numberpattern}); - my $frequency = C4::Serials::Frequency::GetSubscriptionFrequencies($subscription->{periodicity}); + my $frequency = C4::Serials::Frequency::GetSubscriptionFrequency($subscription->{periodicity}); my $expected = GetNextExpected($subscriptionid); my ( $newserialseq, $newlastvalue1, $newlastvalue2, $newlastvalue3, @@ -85,7 +85,6 @@ if($op eq 'gennext' && @subscriptionid){ ) = GetNextSeq($subscription, $pattern, $frequency, $expected->{publisheddate}); ## We generate the next publication date - $frequency = C4::Serials::Frequency::GetSubscriptionFrequency($subscription->{periodicity}); my $nextpublisheddate = GetNextDate($subscription, $expected->{publisheddate}, $frequency, 1); my $planneddate = $date_received_today ? dt_from_string : $nextpublisheddate; ## Creating the new issue -- 2.24.1 (Apple Git-126)