@@ -, +, @@ Koha::Patrons->columns instead --- C4/Members.pm | 35 ----------------------------------- t/db_dependent/Members/columns.t | 24 ------------------------ tools/import_borrowers.pl | 3 ++- 3 files changed, 2 insertions(+), 60 deletions(-) delete mode 100644 t/db_dependent/Members/columns.t --- a/C4/Members.pm +++ a/C4/Members.pm @@ -552,41 +552,6 @@ sub GetMemberIssuesAndFines { } -=head2 columns - - my @columns = C4::Member::columns(); - -Returns an array of borrowers' table columns on success, -and an empty array on failure. - -=cut - -sub columns { - - # Pure ANSI SQL goodness. - my $sql = 'SELECT * FROM borrowers WHERE 1=0;'; - - # Get the database handle. - my $dbh = C4::Context->dbh; - - # Run the SQL statement to load STH's readonly properties. - my $sth = $dbh->prepare($sql); - my $rv = $sth->execute(); - - # This only fails if the table doesn't exist. - # This will always be called AFTER an install or upgrade, - # so borrowers will exist! - my @data; - if ($sth->{NUM_OF_FIELDS}>0) { - @data = @{$sth->{NAME}}; - } - else { - @data = (); - } - return @data; -} - - =head2 ModMember my $success = ModMember(borrowernumber => $borrowernumber, --- a/t/db_dependent/Members/columns.t +++ a/t/db_dependent/Members/columns.t @@ -1,24 +0,0 @@ -#!/usr/bin/perl -# -# This is to test C4/Members -# It requires a working Koha database with the sample data - -use Modern::Perl; - -use Test::More tests => 2; - -BEGIN { - use_ok('C4::Members'); -} - -my @borrowers_columns = C4::Members::columns; -ok( - $#borrowers_columns > 1, - 'C4::Member->column returned a reasonable number of columns (' - . ( $#borrowers_columns + 1 ) . ')' - ) - or diag( -'WARNING: Check that the borrowers table exists and has the correct fields defined.' - ); - -exit; --- a/tools/import_borrowers.pl +++ a/tools/import_borrowers.pl @@ -48,6 +48,7 @@ use C4::Members::Messaging; use C4::Reports::Guided; use C4::Templates; use Koha::Patron::Debarments; +use Koha::Patrons; use Koha::DateUtils; use Text::CSV; @@ -61,7 +62,7 @@ use CGI qw ( -utf8 ); my (@errors, @feedback); my $extended = C4::Context->preference('ExtendedPatronAttributes'); my $set_messaging_prefs = C4::Context->preference('EnhancedMessagingPreferences'); -my @columnkeys = C4::Members::columns(); +my @columnkeys = Koha::Patrons->columns(); @columnkeys = map { $_ ne 'borrowernumber' ? $_ : () } @columnkeys; if ($extended) { push @columnkeys, 'patron_attributes'; --