use C4::Auth;
use C4::Output;
use Koha::List::Patron;
+use List::MoreUtils qw/uniq/;
my $cgi = new CGI;
my ($list) =
GetPatronLists( { patron_list_id => scalar $cgi->param('patron_list_id') } );
+my $cardnumbers = $cgi->param('patrons_by_barcode');
+my @patrons_by_barcode;
+
+if ( $cardnumbers ){
+ push my @patrons_by_barcode, uniq( split(/\s\n/, $cardnumbers) );
+ AddPatronsToList( { list => $list, cardnumbers => \@patrons_by_barcode } );
+}
+
my @patrons_to_add = $cgi->multi_param('patrons_to_add');
if (@patrons_to_add) {
AddPatronsToList( { list => $list, cardnumbers => \@patrons_to_add } );