sub is_requesteeble { return $_[0]->{'is_requesteeble'}; }
sub is_multiplicable { return $_[0]->{'is_multiplicable'}; }
sub sortkey { return $_[0]->{'sortkey'}; }
+sub request_group_id { return $_[0]->{'request_group_id'}; }
+sub grant_group_id { return $_[0]->{'grant_group_id'}; }
###############################
#### Methods ####
my ($self, $flag_type) = @_;
return ($self->can_set_flag($flag_type)
- || !$flag_type->request_group
- || $self->in_group_id($flag_type->request_group->id)) ? 1 : 0;
+ || !$flag_type->request_group_id
+ || $self->in_group_id($flag_type->request_group_id)) ? 1 : 0;
}
sub can_set_flag {
my ($self, $flag_type) = @_;
- return (!$flag_type->grant_group
- || $self->in_group_id($flag_type->grant_group->id)) ? 1 : 0;
+ return (!$flag_type->grant_group_id
+ || $self->in_group_id($flag_type->grant_group_id)) ? 1 : 0;
}
sub direct_group_membership {