my $self = shift;
$self->{'table'} = "Groups";
$self->{'primary_key'} = "id";
+ $self->{'with_disabled_column'} = 1;
my @result = $self->SUPER::_Init(@_);
}
-# {{{ LimiToSystemInternalGroups
+# {{{ LimitToSystemInternalGroups
=head2 LimitToSystemInternalGroups
# }}}
-# {{{ LimiToUserDefinedGroups
+# {{{ LimitToUserDefinedGroups
=head2 LimitToUserDefinedGroups
# }}}
-# {{{ LimiToPersonalGroupsFor
+# {{{ LimitToPersonalGroupsFor
=head2 LimitToPersonalGroupsFor PRINCIPAL_ID
$from_group->WithGroupRight( %args );
#XXX: DIRTY HACK
+ use DBIx::SearchBuilder 1.50; #no version on ::Union :(
use DBIx::SearchBuilder::Union;
my $union = new DBIx::SearchBuilder::Union;
$union->add($from_role);
sub LimitToEnabled {
my $self = shift;
-
- $self->Limit( ALIAS => $self->PrincipalsAlias,
- FIELD => 'Disabled',
- VALUE => '0',
- OPERATOR => '=',
- );
+
+ $self->{'handled_disabled_column'} = 1;
+ $self->Limit(
+ ALIAS => $self->PrincipalsAlias,
+ FIELD => 'Disabled',
+ VALUE => '0',
+ );
}
# }}}
sub LimitToDeleted {
my $self = shift;
- $self->{'find_disabled_rows'} = 1;
- $self->Limit( ALIAS => $self->PrincipalsAlias,
- FIELD => 'Disabled',
- OPERATOR => '=',
- VALUE => 1,
- );
+ $self->{'handled_disabled_column'} = $self->{'find_disabled_rows'} = 1;
+ $self->Limit(
+ ALIAS => $self->PrincipalsAlias,
+ FIELD => 'Disabled',
+ VALUE => 1,
+ );
}
+
# }}}
# {{{ sub Next