View | Details | Raw Unified | Return to bug 27851
Collapse All | Expand All

(-)a/Koha/Old/Checkouts.pm (-1 / +18 lines)
Lines 18-27 package Koha::Old::Checkouts; Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Koha::Database;
20
use Koha::Database;
21
use Koha::DateUtils qw( dt_from_string );
21
use Koha::Old::Checkout;
22
use Koha::Old::Checkout;
22
23
23
use base qw(Koha::Objects);
24
use base qw(Koha::Objects);
24
25
26
sub filter_by_todays_checkins {
27
    my ( $self ) = @_;
28
29
    my $dtf = Koha::Database->new->schema->storage->datetime_parser;
30
    my $today = dt_from_string;
31
    my $today_start = $today->clone->set( hour =>  0, minute =>  0, second =>  0 );
32
    my $today_end   = $today->clone->set( hour => 23, minute => 59, second => 59 );
33
    $today_start = $dtf->format_datetime( $today_start );
34
    $today_end   = $dtf->format_datetime( $today_end );
35
    return $self->search({
36
        returndate => {
37
            '>=' => $today_start,
38
            '<=' => $today_end,
39
        },
40
    });
41
}
42
25
sub _type {
43
sub _type {
26
    return 'OldIssue';
44
    return 'OldIssue';
27
}
45
}
28
- 

Return to bug 27851