Bug 10950: (QA follow-up) Fix typo in hidden check in OPAC patron form

[koha-ffzg.git] / acqui / check_uniqueness.pl

diff --git a/acqui/check_uniqueness.pl b/acqui/check_uniqueness.pl
index 70d95dd..b665b34 100755 (executable)
--- a/acqui/check_uniqueness.pl
+++ b/acqui/check_uniqueness.pl
@@ -32,18 +32,18 @@
 use Modern::Perl;
 
 use CGI qw ( -utf8 );
-use JSON;
-use C4::Output;
-use C4::Items;
+use JSON qw( to_json );
+use C4::Output qw( output_with_http_headers );
+use C4::Items qw( SearchItems );
 
-my $input = new CGI;
+my $input = CGI->new;
 my @field = $input->multi_param('field[]');
 my @value = $input->multi_param('value[]');
 
 my $r = {};
 my $i = 0;
 for ( my $i=0; $i<@field; $i++ ) {
-    my $items = C4::Items::SearchItemsByField($field[$i], $value[$i]);
+    my ($items) = C4::Items::SearchItems({ field => $field[$i], query => $value[$i]});
 
     if ( @$items ) {
         push @{ $r->{$field[$i]} }, $value[$i];