summaryrefslogtreecommitdiff
path: root/httemplate/misc/delete-addr_range.html
diff options
context:
space:
mode:
authorIvan Kohler <ivan@freeside.biz>2013-12-10 20:59:42 -0800
committerIvan Kohler <ivan@freeside.biz>2013-12-10 20:59:42 -0800
commit430b2c784d2ee9ea5be00b821d2dbd27279ef132 (patch)
treec8a224219c1425bd3fa03b1a54487bf1f3de7449 /httemplate/misc/delete-addr_range.html
parent6ced51db0e73603461591e54b7f606467e7c7af0 (diff)
parente1157f37c618a7b9cdb2793d61999458076dc51b (diff)
Merge branch 'master' of git.freeside.biz:/home/git/freeside
Conflicts: FS/FS/Mason.pm FS/MANIFEST
Diffstat (limited to 'httemplate/misc/delete-addr_range.html')
-rw-r--r--httemplate/misc/delete-addr_range.html21
1 files changed, 21 insertions, 0 deletions
diff --git a/httemplate/misc/delete-addr_range.html b/httemplate/misc/delete-addr_range.html
new file mode 100644
index 000000000..c6310e9b1
--- /dev/null
+++ b/httemplate/misc/delete-addr_range.html
@@ -0,0 +1,21 @@
+% if ( $error ) {
+<& /elements/errorpage-popup.html, $error &>
+% } else {
+<& /elements/header-popup.html, "Address range deleted" &>
+ <SCRIPT TYPE="text/javascript">
+ window.top.location.reload();
+ </SCRIPT>
+</BODY>
+</HTML>
+% }
+<%init>
+
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Broadband global configuration');
+
+my ($rangenum) = $cgi->keywords;
+$rangenum =~ /^\d+$/ or die "bad rangenum '$rangenum'";
+my $addr_range = FS::addr_range->by_key($rangenum);
+die "unknown rangenum $rangenum" unless $addr_range;
+my $error = $addr_range->delete;
+</%init>