From 052668b2fd4392a1e057ea6af5b096bd4af8b126 Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Sun, 18 Aug 2013 12:41:18 -0400 Subject: [PATCH] [PASSED QA] Bug 5202: Quiet warning $mergereference is not always defined, so we should check it is defined before checking its value. Signed-off-by: Katrin Fischer --- authorities/merge.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/authorities/merge.pl b/authorities/merge.pl index 0c7a7ea..be24c8e 100755 --- a/authorities/merge.pl +++ b/authorities/merge.pl @@ -94,7 +94,7 @@ else { my $recordObj1 = Koha::Authority->get_from_authid($authid[0]) || Koha::Authority->new(); my $recordObj2; - if ($mergereference eq 'breeding') { + if (defined $mergereference && $mergereference eq 'breeding') { $recordObj2 = Koha::Authority->get_from_breeding($authid[1]) || Koha::Authority->new(); } else { $recordObj2 = Koha::Authority->get_from_authid($authid[1]) || Koha::Authority->new(); -- 1.7.9.5