diff options
| author | Mark Wells <mark@freeside.biz> | 2014-08-06 18:36:52 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2014-08-06 18:36:58 -0700 |
| commit | f8066fa6a33f4ac33beec675b17de96c8c0a274b (patch) | |
| tree | 4671858a8d28478fc255db156d62fa52628fcfcb /FS/FS/deploy_zone_block.pm | |
| parent | 8cfa2aa87c0c9f44da6b5b9e065868524ca014b3 (diff) | |
477 report tweaks
Diffstat (limited to 'FS/FS/deploy_zone_block.pm')
| -rw-r--r-- | FS/FS/deploy_zone_block.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/FS/FS/deploy_zone_block.pm b/FS/FS/deploy_zone_block.pm index 58234b924..757af7e3d 100644 --- a/FS/FS/deploy_zone_block.pm +++ b/FS/FS/deploy_zone_block.pm @@ -111,6 +111,10 @@ sub check { ; return $error if $error; + if ($self->get('censusblock') !~ /^(\d{15})$/) { + return "Illegal census block number (must be 15 digits)"; + } + $self->SUPER::check; } |