httemplate/edit/process/addr_block/deallocate.cgi

   1 %
   2 %my $error = '';
   3 %my $blocknum = $cgi->param('blocknum');
   4 %
   5 %my $addr_block = qsearchs('addr_block', { blocknum => $blocknum });
   6 %
   7 %if($addr_block) {
   8 %  my $router = $addr_block->router;
   9 %  if ($router) {
  10 %    $error = $addr_block->deallocate($router);
  11 %  } else {
  12 %    $error = "Block is not allocated to a router";
  13 %  }
  14 %} else {
  15 %  $error = "Cannot find block with blocknum $blocknum";
  16 %}
  17 %
  18 %if ( $error ) {
  19 %  $cgi->param('error', $error);
  20 %  print $cgi->redirect(popurl(4). "browse/addr_block.cgi?" . $cgi->query_string);
  21 %} else {
  22 %  print $cgi->redirect(popurl(4). "browse/addr_block.cgi");
  23 %}
  24 %
  25