477 report tweaks

[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..757af7e 100644 (file)
--- 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;
 }