X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ND%2FWeb%2FPage.pm;h=2f80d86fe913fd21db85467ebbce91470a9d3365;hb=ac65e241f748773959b94d66691ee93019fcae84;hp=6e6c2c039b3af6987efb9f61f400ae3bf43a9e92;hpb=256609e2df07f5dd40a33ace6163d2b72a269246;p=ndwebbie.git diff --git a/ND/Web/Page.pm b/ND/Web/Page.pm index 6e6c2c0..2f80d86 100644 --- a/ND/Web/Page.pm +++ b/ND/Web/Page.pm @@ -21,7 +21,7 @@ use strict; use warnings; use CGI qw/:standard/; -our %PAGES = {}; +our %PAGES; sub new { my $invocant = shift; @@ -77,7 +77,7 @@ sub render : method { 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 {