my @pages = ();
for my $page (@{$self->session->{caledit}->{pages}})
{
  push(@pages,1);
  next if($page->{class} ne 'DT');
  next if(defined($page->{mid}) && grep{defined($_) && /\w+/}@{$page->{texts}} );
  $pages[-1]=0;
}