httemplate/edit/process/addr_block/split.cgi

   1 %
   2 %my $error = '';
   3 %my $blocknum = $cgi->param('blocknum');
   4 %my $addr_block = qsearchs('addr_block', { blocknum => $blocknum });
   5 %
   6 %if ( $addr_block) {
   7 %  $error = $addr_block->split_block;
   8 %} else {
   9 %  $error = "Unknown blocknum: $blocknum";
  10 %}
  11 %
  12 %
  13 %if ( $error ) {
  14 %  $cgi->param('error', $error);
  15 %  print $cgi->redirect(popurl(4). "browse/addr_block.cgi?". $cgi->query_string );
  16 %} else {
  17 %  print $cgi->redirect(popurl(4). "browse/addr_block.cgi");
  18 %}
  19 %
  20