From 2dcdc03304589407715af69f82050cd983cfc1a7 Mon Sep 17 00:00:00 2001 From: Jonathan Druart <jonathan.druart@bugs.koha-community.org> Date: Wed, 28 May 2025 16:51:37 +0200 Subject: [PATCH] Bug 40020: Remove warnings from Koha/AdditionalContents.t Content-Type: text/plain; charset=utf-8 Test plan: prove t/db_dependent/Koha/AdditionalContents.t should return green Signed-off-by: David Nind <david@davidnind.com> Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> --- Koha/AdditionalContents.pm | 2 +- t/db_dependent/Koha/AdditionalContents.t | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/Koha/AdditionalContents.pm b/Koha/AdditionalContents.pm index a16089e524..917538c7bd 100644 --- a/Koha/AdditionalContents.pm +++ b/Koha/AdditionalContents.pm @@ -73,7 +73,7 @@ location is one of this: sub search_for_display { my ( $self, $params ) = @_; - my $lang = $params->{lang}; + my $lang = $params->{lang} || q{}; # If lang is not default, we will search for entries matching $lang but fallback to default if $lang is not found # Then we need a subquery count in where clause; DBIx::Class/SQL::Abstract does not support it, fallback to literal SQL diff --git a/t/db_dependent/Koha/AdditionalContents.t b/t/db_dependent/Koha/AdditionalContents.t index 6fc01677c0..5ed6fea055 100755 --- a/t/db_dependent/Koha/AdditionalContents.t +++ b/t/db_dependent/Koha/AdditionalContents.t @@ -19,8 +19,9 @@ use Modern::Perl; -use Test::More tests => 7; +use Test::More tests => 8; use Test::Exception; +use Test::NoWarnings; use Koha::AdditionalContents; use Koha::Database; -- 2.39.5