httemplate/edit/process/addr_block/split.cgi

   1 <% $cgi->redirect(popurl(4). "browse/addr_block.cgi?". $cgi->query_string ) %>
   2 <%init>
   3
   4 my $curuser = $FS::CurrentUser::CurrentUser;
   5
   6 die "access denied"
   7   unless $curuser->access_right('Broadband configuration')
   8       || $curuser->access_right('Broadband global configuration');
   9
  10 my $error = '';
  11 $cgi->param('blocknum') =~ /^(\d+)$/ or die "invalid blocknum";
  12 my $blocknum = $1;
  13
  14 my $addr_block = qsearchs({ 'table'     => 'addr_block',
  15                             'hashref'   => { blocknum => $blocknum },
  16                             'extra_sql' => ' AND '. $curuser->agentnums_sql(
  17                               'null_right' => 'Broadband global configuration'
  18                             ),
  19                          })
  20   or $error = "Unknown blocknum: $blocknum";
  21
  22 $error ||= $addr_block->split_block;
  23
  24 $cgi->param('error', $error)
  25   if $error;
  26
  27 </%init>