=head3 todays_checkouts

my $todays_checkouts = $patron->todays_checkouts

This method will return a filtered set of patron checkouts limited by those that have taken place today.

=cut

sub todays_checkouts {

    my ($self) = @_;

    my $dtf = Koha::Database->new->schema->storage->datetime_parser;

    my $today_start =

      dt_from_string->set( hour => 0, minute => 0, second => 0 );

    my $today_end =

      dt_from_string->set( hour => 23, minute => 59, second => 0 );

    my $checkouts = $self->_result->issues->search(

        {

            -or => {

                issuedate => {

                    '>=' => $dtf->format_datetime($today_start),

                    '<=' => $dtf->format_datetime($today_end),

                },

                lastreneweddate => {

                    '>=' => $dtf->format_datetime($today_start),

                    '<=' => $dtf->format_datetime($today_end),

                }

            }

        },

        {

            order_by => [

                -desc => 'me.lastreneweddate',

                -desc => 'me.issuedate'

            ]

        }

    );

    return Koha::Checkouts->_new_from_dbic($checkouts);

}