use Modern::Perl;
use Carp;
use DateTime;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Koha::Display;
use base qw(Koha::Objects);
sub active {
my ($self) = @_;
my $today = DateTime->today->ymd;
my $today = dt_from_string()->truncate( to => 'day' )->ymd;
return $self->search(
{
-