use Koha::Database;
use Koha::DateUtils;
#BZ 16520, add timestamps to warnings
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($WARN);
my $logger = Log::Log4perl->get_logger(); # use the default logger style
$SIG{__WARN__} = sub {
my $message = shift;
$logger->warn($message);
};
use CGI qw(-utf8 ); # we will loose -utf8 under plack, otherwise
{
no warnings 'redefine';
-