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