--- lib/A3C/Model/hrEduOrg.pm	2008/05/26 18:08:47	130
+++ lib/A3C/Model/hrEduOrg.pm	2008/05/26 18:12:15	131
@@ -6,14 +6,14 @@
 use Data::Dump qw/dump/;
 
 sub create {
-	warn "# create",dump(@_);
+	#warn "# create",dump(@_);
 	my $self = shift;
 	my %data = @_ or die "no data?";
 	foreach my $col ( keys %data ) {
-		warn "## ref($col)=",ref($col);
+		#warn "## ref($col)=",ref($col);
 		$data{$col} = join(' <*> ', @{$data{$col}}) if ref( $data{$col} ) eq 'ARRAY';
 	}
-	warn "## data = ",dump( %data );
+	#warn "## data = ",dump( %data );
 	$self->SUPER::create( %data );
 }
 
@@ -209,6 +209,25 @@
 	return $self->cn . ' - ' . $self->o;
 }
 
+=head2 validate_uidNumber
+
+=cut
+
+sub validate_uidNumber {
+	my ( $self, $value ) = @_;
+	return ( 0, _('uidNumber must be only digits') ) unless $value =~ m/^\d+$/;
+	return ( 1, 'OK' );
+}
+
+=head2 validate_gidNumber
+
+=cut
+
+sub validate_gidNumber {
+	my ( $self, $value ) = @_;
+	return ( 0, _('gidNumber must be only digits') ) unless $value =~ m/^\d+$/;
+	return ( 1, 'OK' );
+}
 
 =head2 ACL