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 %>