View | Details | Raw Unified | Return to bug 12598
Collapse All | Expand All

(-)a/misc/import_patrons.pl (-2 / +3 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use Getopt::Long;
22
use Getopt::Long;
23
23
24
use Koha::Patrons::Import qw(import_patrons);
24
use Koha::Patrons::Import;
25
my $Import = Koha::Patrons::Import->new();
25
26
26
my $csv_file;
27
my $csv_file;
27
my $matchpoint;
28
my $matchpoint;
Lines 48-54 print_help() if ( $help || !$csv_file || !$matchpoint || !$confirm ); Link Here
48
my $handle;
49
my $handle;
49
open( $handle, "<", $csv_file ) or die $!;
50
open( $handle, "<", $csv_file ) or die $!;
50
51
51
my $return = Koha::Patrons::Import::import_patrons(
52
my $return = $Import->import_patrons(
52
    {
53
    {
53
        file                         => $handle,
54
        file                         => $handle,
54
        defaults                     => \%defaults,
55
        defaults                     => \%defaults,
(-)a/tools/import_borrowers.pl (-3 / +3 lines)
Lines 45-51 use Koha::DateUtils; Link Here
45
use C4::Branch;
45
use C4::Branch;
46
use C4::Members;
46
use C4::Members;
47
47
48
use Koha::Patrons::Import qw(import_patrons);
48
use Koha::Patrons::Import;
49
my $Import = Koha::Patrons::Import->new();
49
50
50
use Text::CSV;
51
use Text::CSV;
51
52
Lines 112-118 if ( $uploadborrowers && length($uploadborrowers) > 0 ) { Link Here
112
    my $handle   = $input->upload('uploadborrowers');
113
    my $handle   = $input->upload('uploadborrowers');
113
    my %defaults = $input->Vars;
114
    my %defaults = $input->Vars;
114
115
115
    my $return = Koha::Patrons::Import::import_patrons(
116
    my $return = $Import->import_patrons(
116
        {
117
        {
117
            file                         => $handle,
118
            file                         => $handle,
118
            defaults                     => \%defaults,
119
            defaults                     => \%defaults,
119
- 

Return to bug 12598