From 46c1d0689870f5736fa381509b8163f2cf358073 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Thu, 26 Apr 2018 13:48:58 +0200 Subject: [PATCH] Bug 20304: (QA follow-up) Remove unwanted 'my' 'my' creates a new '$value' variable, and prevented the '$value' in outer scope to be modified Signed-off-by: Julian Maurice --- cataloguing/additem.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl index c5d0d43952..5cb0809991 100755 --- a/cataloguing/additem.pl +++ b/cataloguing/additem.pl @@ -156,7 +156,7 @@ sub generate_subfield_form { my $CNsubfield2 = substr($pref_itemcallnumber, 4, 1); my $temp2 = $temp->field($CNtag); if ($temp2) { - my $value = join ' ', $temp2->subfield($CNsubfield) || q{}, $temp2->subfield($CNsubfield2) || q{}; + $value = join ' ', $temp2->subfield($CNsubfield) || q{}, $temp2->subfield($CNsubfield2) || q{}; #remove any trailing space incase one subfield is used $value =~ s/^\s+|\s+$//g; } -- 2.14.2