projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 78190 Remove debug statements
[freeside.git]
/
FS
/
FS
/
deploy_zone_block.pm
diff --git
a/FS/FS/deploy_zone_block.pm
b/FS/FS/deploy_zone_block.pm
index
58234b9
..
2ac18e2
100644
(file)
--- a/
FS/FS/deploy_zone_block.pm
+++ b/
FS/FS/deploy_zone_block.pm
@@
-43,10
+43,6
@@
L<FS::deploy_zone> foreign key for the zone.
U.S. census block number (15 digits).
U.S. census block number (15 digits).
-=item censusyear
-
-The year of the census map where the block appeared or was last verified.
-
=back
=head1 METHODS
=back
=head1 METHODS
@@
-107,10
+103,13
@@
sub check {
$self->ut_numbern('blocknum')
|| $self->ut_number('zonenum')
|| $self->ut_number('censusblock')
$self->ut_numbern('blocknum')
|| $self->ut_number('zonenum')
|| $self->ut_number('censusblock')
- || $self->ut_number('censusyear')
;
return $error if $error;
;
return $error if $error;
+ if ($self->get('censusblock') !~ /^(\d{15})$/) {
+ return "Illegal census block number (must be 15 digits)";
+ }
+
$self->SUPER::check;
}
$self->SUPER::check;
}