X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fdeploy_zone_block.pm;h=757af7e3d7c89379c0a6e7497b3e5031a842990d;hp=58234b9240f81976d67f830cf603fa08009a39c1;hb=f8066fa6a33f4ac33beec675b17de96c8c0a274b;hpb=8cfa2aa87c0c9f44da6b5b9e065868524ca014b3 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; }