X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=tools%2Fimport_borrowers.pl;h=5f65c979a6135c0ec55961a60da4d638e5195bf7;hb=9c5e40e4923179bf0b2b630d3e09797dc4c1fdb0;hp=a7e9142d711a8f378bd6dd0764e4898efb58ba98;hpb=5c2def51587c4b2636b5f066306b8bd5dc0e7a7a;p=koha.git diff --git a/tools/import_borrowers.pl b/tools/import_borrowers.pl index a7e9142d71..5f65c979a6 100755 --- a/tools/import_borrowers.pl +++ b/tools/import_borrowers.pl @@ -58,11 +58,11 @@ use CGI; my (@errors, @feedback); my $extended = C4::Context->preference('ExtendedPatronAttributes'); my $set_messaging_prefs = C4::Context->preference('EnhancedMessagingPreferences'); -my @columnkeys = C4::Members->columns; +my @columnkeys = C4::Members::columns(); if ($extended) { push @columnkeys, 'patron_attributes'; } -my $columnkeystpl = [ map { {'key' => $_} } grep {$_ ne 'borrowernumber' && $_ ne 'cardnumber'} @columnkeys ]; # ref. to array of hashrefs. +my $columnkeystpl = [ map { {'key' => $_} } grep {$_ ne 'borrowernumber' } @columnkeys ]; # ref. to array of hashrefs. my $input = CGI->new(); our $csv = Text::CSV->new({binary => 1}); # binary needed for non-ASCII Unicode @@ -304,7 +304,7 @@ if ( $uploadborrowers && length($uploadborrowers) > 0 ) { } else { if ($extended) { my @matchpoints = (); - my @attr_types = C4::Members::AttributeTypes::GetAttributeTypes(); + my @attr_types = C4::Members::AttributeTypes::GetAttributeTypes(undef, 1); foreach my $type (@attr_types) { my $attr_type = C4::Members::AttributeTypes->fetch($type->{code}); if ($attr_type->unique_id()) {