=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;

}

#!/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;

-