@@ -, +, @@ import --- Koha/Patrons/Import.pm | 3 +++ tools/import_borrowers.pl | 7 +++++++ 2 files changed, 10 insertions(+) --- a/Koha/Patrons/Import.pm +++ a/Koha/Patrons/Import.pm @@ -82,6 +82,7 @@ sub import_patrons { my $alreadyindb = 0; my $overwritten = 0; my $invalid = 0; + my @imported_borrowers; my $matchpoint_attr_type = $self->set_attribute_types({ extended => $extended, matchpoint => $matchpoint, }); # Use header line to construct key to column map @@ -320,6 +321,7 @@ sub import_patrons { } $imported++; + push @imported_borrowers, $borrowernumber; #for patronlist push( @feedback, { @@ -350,6 +352,7 @@ sub import_patrons { overwritten => $overwritten, already_in_db => $alreadyindb, invalid => $invalid, + imported_borrowers => \@imported_borrowers, }; } --- a/tools/import_borrowers.pl +++ a/tools/import_borrowers.pl @@ -137,6 +137,13 @@ if ( $uploadborrowers && length($uploadborrowers) > 0 ) { my $overwritten = $return->{overwritten}; my $alreadyindb = $return->{already_in_db}; my $invalid = $return->{invalid}; + my $imported_borrowers = $return->{imported_borrowers}; + + if ( $imported && $createpatronlist ) { + my $patronlist = AddPatronList({ name => $patronlistname }); + AddPatronsToList({ list => $patronlist, borrowernumbers => $imported_borrowers }); + $template->param('patronlistname' => $patronlistname); + } my $uploadinfo = $input->uploadInfo($uploadborrowers); foreach ( keys %$uploadinfo ) { --