4 <% $cgi->redirect("${p}browse/addr_block.cgi") %>
9 unless $FS::CurrentUser::CurrentUser->access_right('Broadband configuration')
10 || $FS::CurrentUser::CurrentUser->access_right('Broadband global configuration');
12 my($query) = $cgi->keywords;
13 $query =~ /^(\d+)$/ || die "Illegal blocknum";
16 my $addr_block = qsearchs('addr_block',{'blocknum'=>$blocknum});
17 my $error = $addr_block->delete;