use CGI qw/:standard/;
use ND::Web::Include;
-our @ISA = qw/ND::Web::XMLPage/;
+use base qw/ND::Web::XMLPage/;
$ND::Web::Page::PAGES{covop} = __PACKAGE__;
$self->{TITLE} = 'CovOp Targets';
my $DBH = $self->{DBH};
- return $self->noAccess unless $self->isMember;
+ return $self->noAccess unless $self->isHC;
my $show = q{AND ((planet_status IS NULL OR NOT planet_status IN ('Friendly','NAP')) AND (relationship IS NULL OR NOT relationship IN ('Friendly','NAP')))};
$show = '' if defined param('show') && param('show') eq 'all';