@@ -, +, @@ 1) Open cataloguing/additem.pl and search for any usages of find_value, you should find 0 usages. --- cataloguing/additem.pl | 16 ---------------- 1 file changed, 16 deletions(-) --- a/cataloguing/additem.pl +++ a/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; --