Adding use List::MoreUtils
filtering fieldnames using any
use C4::Context;
use C4::Output;
use C4::Dates qw<format_date>;
use C4::Context;
use C4::Output;
use C4::Dates qw<format_date>;
use base 'Exporter'; # parent would be better there
our $VERSION = 3.01;
our @EXPORT = qw<
use base 'Exporter'; # parent would be better there
our $VERSION = 3.01;
our @EXPORT = qw<
- foreach my $field (grep {qw<
+ foreach my $field (grep {my $fieldname=$_; any {$fieldname eq $_ }qw<
STATUS branchcode itemtype suggestedby managedby acceptedby
bookfundid biblionumber
>} keys %$suggestion
STATUS branchcode itemtype suggestedby managedby acceptedby
bookfundid biblionumber
>} keys %$suggestion