httemplate/edit/process/addr_block/allocate.cgi

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