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