summaryrefslogtreecommitdiff
path: root/httemplate/edit/process/addr_block/manual_flag.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/edit/process/addr_block/manual_flag.cgi')
-rwxr-xr-xhttemplate/edit/process/addr_block/manual_flag.cgi30
1 files changed, 0 insertions, 30 deletions
diff --git a/httemplate/edit/process/addr_block/manual_flag.cgi b/httemplate/edit/process/addr_block/manual_flag.cgi
deleted file mode 100755
index dc0cbbb..0000000
--- a/httemplate/edit/process/addr_block/manual_flag.cgi
+++ /dev/null
@@ -1,30 +0,0 @@
-<% $cgi->redirect(popurl(4). "browse/addr_block.cgi?". $cgi->query_string ) %>
-<%init>
-
-my $curuser = $FS::CurrentUser::CurrentUser;
-
-die "access denied"
- unless $curuser->access_right('Broadband configuration')
- || $curuser->access_right('Broadband global configuration');
-
-my $error = '';
-$cgi->param('blocknum') =~ /^(\d+)$/ or die "invalid blocknum";
-my $blocknum = $1;
-
-my $addr_block = qsearchs({ 'table' => 'addr_block',
- 'hashref' => { blocknum => $blocknum },
- 'extra_sql' => ' AND '. $curuser->agentnums_sql(
- 'null_right' => 'Broadband global configuration'
- ),
- })
- or $error = "Unknown blocknum: $blocknum";
-
-$addr_block->manual_flag($cgi->param('manual_flag'))
- unless $error;
-
-$error ||= $addr_block->replace;
-
-$cgi->param('error', $error)
- if $error;
-
-</%init>