From 2729640f33bc3b744432418999c9ec8c2d7b1a85 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Joonas=20Kylm=C3=A4l=C3=A4?= Date: Sun, 26 Sep 2021 08:14:19 +0000 Subject: [PATCH] Bug 29111: Remove unused function from cataloguing/additem.pl To test: 1) Open cataloguing/additem.pl and search for any usages of find_value, you should find 0 usages. Signed-off-by: Petro Vashchuk --- cataloguing/additem.pl | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl index 17814f2a60..120e4c0b23 100755 --- a/cataloguing/additem.pl +++ b/cataloguing/additem.pl @@ -58,22 +58,6 @@ use MIME::Base64 qw( decode_base64url encode_base64url ); our $dbh = C4::Context->dbh; -sub find_value { - my ($tagfield,$insubfield,$record) = @_; - my $result; - my $indicator; - foreach my $field ($record->field($tagfield)) { - my @subfields = $field->subfields(); - foreach my $subfield (@subfields) { - if (@$subfield[0] eq $insubfield) { - $result .= @$subfield[1]; - $indicator = $field->indicator(1).$field->indicator(2); - } - } - } - return($indicator,$result); -} - sub get_item_from_barcode { my ($barcode)=@_; my $dbh=C4::Context->dbh; -- 2.31.1