3 |
use warnings; |
use warnings; |
4 |
|
|
5 |
use Jifty::DBI::Schema; |
use Jifty::DBI::Schema; |
6 |
|
use Data::Dump qw/dump/; |
7 |
|
|
8 |
use A3C::Record schema { |
use A3C::Record schema { |
9 |
|
|
197 |
return $self->cn . ' - ' . $self->o; |
return $self->cn . ' - ' . $self->o; |
198 |
} |
} |
199 |
|
|
200 |
|
=head2 validate_uidNumber |
201 |
|
|
202 |
|
=cut |
203 |
|
|
204 |
|
sub validate_uidNumber { |
205 |
|
my ( $self, $value ) = @_; |
206 |
|
return ( 0, _('uidNumber must be only digits') ) unless $value =~ m/^\d+$/; |
207 |
|
return ( 1, 'OK' ); |
208 |
|
} |
209 |
|
|
210 |
|
=head2 validate_gidNumber |
211 |
|
|
212 |
|
=cut |
213 |
|
|
214 |
|
sub validate_gidNumber { |
215 |
|
my ( $self, $value ) = @_; |
216 |
|
return ( 0, _('gidNumber must be only digits') ) unless $value =~ m/^\d+$/; |
217 |
|
return ( 1, 'OK' ); |
218 |
|
} |
219 |
|
|
220 |
=head2 ACL |
=head2 ACL |
221 |
|
|