@@ -, +, @@ tools/import_borrowers.pl --- misc/import_patrons.pl | 5 +++-- tools/import_borrowers.pl | 5 +++-- 2 files changed, 6 insertions(+), 4 deletions(-) --- a/misc/import_patrons.pl +++ a/misc/import_patrons.pl @@ -21,7 +21,8 @@ use Modern::Perl; use Getopt::Long; -use Koha::Patrons::Import qw(import_patrons); +use Koha::Patrons::Import; +my $Import = Koha::Patrons::Import->new(); my $csv_file; my $matchpoint; @@ -48,7 +49,7 @@ print_help() if ( $help || !$csv_file || !$matchpoint || !$confirm ); my $handle; open( $handle, "<", $csv_file ) or die $!; -my $return = Koha::Patrons::Import::import_patrons( +my $return = $Import->import_patrons( { file => $handle, defaults => \%defaults, --- a/tools/import_borrowers.pl +++ a/tools/import_borrowers.pl @@ -45,7 +45,8 @@ use Koha::DateUtils; use C4::Branch; use C4::Members; -use Koha::Patrons::Import qw(import_patrons); +use Koha::Patrons::Import; +my $Import = Koha::Patrons::Import->new(); use Text::CSV; @@ -112,7 +113,7 @@ if ( $uploadborrowers && length($uploadborrowers) > 0 ) { my $handle = $input->upload('uploadborrowers'); my %defaults = $input->Vars; - my $return = Koha::Patrons::Import::import_patrons( + my $return = $Import->import_patrons( { file => $handle, defaults => \%defaults, --