# !!!HARDCODED DATA!!!
   # !!!must be synchronized with group-based rules stored
   # !!!in the database!!!
   my @aNodetypes
      = qw(pmdvfaqlet pmdvdoclet pmdvlist pmdvstring
           pmdevnote);
   # END (hard coded data)

   my $node = shift;
   $node ||=$NODE;
   $DB->getRef($node);   #convert to hash if need be
   my $sType = $node->{type}{title};
   return grep {$sType eq $_} @aNodetypes;