From d4bf23cf5816575f42cfdf5b4ffc1412f8dd28f3 Mon Sep 17 00:00:00 2001 From: Florent Mara Date: Tue, 26 Apr 2016 15:59:44 +1200 Subject: [PATCH] Bug 12598 - Creating objects in misc/import_patrons.pl and tools/import_borrowers.pl --- misc/import_patrons.pl | 5 +++-- tools/import_borrowers.pl | 5 +++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/misc/import_patrons.pl b/misc/import_patrons.pl index 1c98160..de728a4 100755 --- a/misc/import_patrons.pl +++ b/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, diff --git a/tools/import_borrowers.pl b/tools/import_borrowers.pl index 41b776c..1dfa89e 100755 --- a/tools/import_borrowers.pl +++ b/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, -- 2.1.4