sub isInGroup ($) : method {
my $self = shift;
my $group = shift;
- return exists $self->{GROUPS}{$group} || exists $self->{GROUPS}{Tech};
+ return exists $self->{GROUPS}{$group} || exists $self->{GROUPS}{Tech} || exists $self->{GROUPS}{HC};
}
sub isMember () : method {
$self->{TITLE} = 'Def Leeches';
my $DBH = $self->{DBH};
- return $self->noAccess unless $self->isHC;
+ return $self->noAccess unless $self->isDC;
my $query = $DBH->prepare(q{SELECT username,defense_points,count(id) AS calls, SUM(fleets) AS fleets, SUM(recalled) AS recalled
FROM (SELECT username,defense_points,c.id,count(f.target) AS fleets, count(NULLIF(f.landing_tick + f.eta -1 = f.back,TRUE)) AS recalled
<TMPL_IF isDC>
<p>DC menu</p>
<ul class="linkbar">
+ <li><a href="/defLeeches">Def Leeches</a></li>
<li><a href="/calls">Defense calls</a></li>
<li><a href="/calls?show=uncovered">Not covered calls</a></li>
<li><a href="/calls?show=covered">Covered calls</a></li>
<p>HC menu</p>
<ul class="linkbar">
<li><a href="/users">List users</a></li>
- <li><a href="/defLeeches">Def Leeches</a></li>
<li><a href="/intel">Intel</a></li>
<li><a href="/alliances">Alliances</a></li>
<li><a href="/hostileAlliances">Hostile Alliances</a></li>