use C4::Dates;
use C4::Debug;
use C4::Branch; # XXX subfield_is_koha_internal_p
+use Koha::Cache;
=head1 NAME
=cut
my $input = new CGI;
-my $usecache = C4::Context->ismemcached;
+my $usecache = Koha::Cache->is_cache_active();
my $phase = $input->param('phase');
my $flagsrequired;