my @pages = map { $_->{class} ne 'DT' ? 1 : 
             ( defined($_->{mid})  && grep ( /\w+/ , @{$_->{texts}} ) ? 1 : 0)
                      } @{$self->session->{caledit}->{pages}};