$iTotalQuery = "SELECT COUNT(borrowers.borrowernumber) FROM borrowers";

    my $iTotalRecords = Koha::Patrons->search($search_params,{ prefetch => $prefetch })->count();

    if ( $has_permission ) {

        $iTotalQuery .= ' LEFT JOIN user_permissions ON borrowers.borrowernumber=user_permissions.borrowernumber';

        $iTotalQuery .= ' AND module_bit=? AND code=?';

        push @conditions, $has_permission->{module_bit}, $has_permission->{subpermission};

    }

    if ( @restricted_branchcodes ) {

        push @where, "borrowers.branchcode IN (" . join( ',', ('?') x @restricted_branchcodes ) . ")";

        push @conditions, @restricted_branchcodes;

    }

    if ( $has_permission ) {

        push @where, '( borrowers.flags = 1 OR borrowers.flags & (1 << ?) OR module_bit=? AND code=? )';

        push @conditions, ($has_permission->{module_bit}) x 2, $has_permission->{subpermission};

    }

    $iTotalQuery .= ' WHERE ' . join ' AND ', @where if @where;

    ($iTotalRecords) = $dbh->selectrow_array( $iTotalQuery, undef, @conditions );

    my $select = "SELECT

    push @{$prefetch}, ('branchcode', 'categorycode');

        borrowers.borrowernumber, borrowers.surname, borrowers.firstname,

        borrowers.othernames,

        borrowers.flags,

        borrowers.streetnumber, borrowers.streettype, borrowers.address,

        borrowers.address2, borrowers.city, borrowers.state, borrowers.zipcode,

        borrowers.country, cardnumber, borrowers.dateexpiry,

        borrowers.borrowernotes, borrowers.branchcode, borrowers.email,

        borrowers.userid, borrowers.dateofbirth, borrowers.categorycode,

        categories.description AS category_description, categories.category_type,

        branches.branchname, borrowers.phone";

    my $from = "FROM borrowers

                LEFT JOIN branches ON borrowers.branchcode = branches.branchcode

                LEFT JOIN categories ON borrowers.categorycode = categories.categorycode";

    my @where_args;

    if ( $has_permission ) {

        $from .= '

                LEFT JOIN user_permissions ON borrowers.borrowernumber=user_permissions.borrowernumber

                AND module_bit=? AND code=?';

        push @where_args, $has_permission->{module_bit}, $has_permission->{subpermission};

    }

    my @where_strs;

        push @where_strs, "borrowers.surname LIKE ?";

        $search_params->{surname} = { -like => $firstletter . '%' };

        push @where_args, "$firstletter%";

        push @where_strs, "borrowers.categorycode = ?";

        $search_params->{'`me`.`categorycode`'} = $categorycode;

        push @where_args, $categorycode;

    }

    if(@restricted_branchcodes ) {

        push @where_strs, "borrowers.branchcode IN (" . join( ',', ('?') x @restricted_branchcodes ) . ")";

        push @where_args, @restricted_branchcodes;

                push @where_strs_or, "borrowers." . $dbh->quote_identifier($searchfield) . " LIKE ?";

                push @{$search_params->{'-or'}}, {$searchfield => { -like => $term }};

                push @where_args, $term;

            push @where_strs_or, "borrowers." . $dbh->quote_identifier($searchfieldstype) . " LIKE ?";

            push @{$search_params->{'-or'}}, {'me.' . $dbh->quote_identifier($searchfieldstype) => { -like => $term }};

            push @where_args, $term;

            my @matching_borrowernumbers = Koha::Patrons->filter_by_attribute_value($searchmember)->get_column('borrowernumber');

            push @{$search_params->{'-or'}}, { '-and' => [

                {'borrower_attribute_types.staff_searchable' => 1},

            for my $borrowernumber ( @matching_borrowernumbers ) {

                {'borrower_attributes.attribute' => { -like => '%'.$term.'%' }}

                push @where_strs_or, "borrowers.borrowernumber = ?";

            ]};

                push @where_args, $borrowernumber;

            push @{$prefetch}, ({ borrower_attributes => 'borrower_attribute_types'} );

            }

    my $limit;

    my $options;

        $limit = "LIMIT $dt_params->{iDisplayStart},$dt_params->{iDisplayLength}";

        $options->{offset} = $dt_params->{iDisplayStart};

        $options->{rows} = $dt_params->{iDisplayLength} ;

    $query = "SELECT COUNT(borrowers.borrowernumber) " . $from . ($where ? $where : "");

    my $iTotalDisplayRecords = Koha::Patrons->search($search_params,{ prefetch => $prefetch })->count();

    $sth = $dbh->prepare($query);

    $sth->execute(@where_args);

    ($iTotalDisplayRecords) = $sth->fetchrow_array;

    foreach my $patron (@$patrons) {

    push @{$prefetch}, ('issues', 'accountlines');

        my $patron_object = Koha::Patrons->find( $patron->{borrowernumber} );

    $options->{prefetch} = $prefetch;

        $patron->{overdues} = $patron_object->get_overdues->count;

    my $patron_objects = Koha::Patrons->search($search_params,$options);

        $patron->{issues} = $patron_object->checkouts->count;

    my @patrons;

        $patron->{age} = $patron_object->get_age;

    while ( my $patron = $patron_objects->next ) {

        my $balance = $patron_object->account->balance;

        my $simple_patron = $patron->unblessed;

        # FIXME Should be formatted from the template

        $simple_patron->{overdues} = $patron->get_overdues->count;

        $patron->{fines} = sprintf("%.2f", $balance);

        $simple_patron->{issues} = $patron->checkouts->count;

        $simple_patron->{age} = $patron->get_age;

        if( $patron->{dateexpiry} ) {

        $simple_patron->{fines} = sprintf("%.2f",$patron->account->lines->total_outstanding);

        $simple_patron->{'branchname'} = $patron->library->branchname;

        $simple_patron->{'category_description'} = $patron->category->description;

        $simple_patron->{'category_type'} = $patron->category->category_type;

        if( $simple_patron->{dateexpiry} ) {

            $patron->{dateexpiry} = output_pref( { dt => scalar dt_from_string( $patron->{dateexpiry}, 'iso'), dateonly => 1} );

            $simple_patron->{dateexpiry} = output_pref( { dt => scalar dt_from_string( $simple_patron->{dateexpiry}, 'iso'), dateonly => 1} );

            $patron->{dateexpiry} = '';

            $simple_patron->{dateexpiry} = '';

        patrons => $patrons

        patrons => \@patrons