use warnings;
use CGI qw/:standard/;
-our %PAGES = {};
+our %PAGES;
sub new {
my $invocant = shift;
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 {