httemplate/edit/process/addr_block/deallocate.cgi

   1 <% include( '../elements/process.html',
   2             'table'            => 'addr_block',
   3             'copy_on_empty'    => [ grep { $_ ne 'routernum' }
   4                                     fields 'addr_block' ],
   5             'redirect'         => popurl(4). 'browse/addr_block.cgi?',
   6             'error_redirect'   => popurl(4). 'browse/addr_block.cgi?',
   7             'agent_virt'       => 1,
   8             'agent_null_right' => 'Broadband global configuration',
   9           )
  10 %>
  11 <%init>
  12
  13 my $conf = new FS::Conf;
  14 my $curuser = $FS::CurrentUser::CurrentUser;
  15 die "access denied"
  16   unless $curuser->access_right('Broadband configuration')
  17       || $curuser->access_right('Broadband global configuration');
  18
  19 $cgi->param('routernum', 0);  # just to be explicit about what we are doing
  20 </%init>