diff options
author | Ivan Kohler <ivan@freeside.biz> | 2013-12-10 20:59:42 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2013-12-10 20:59:42 -0800 |
commit | 430b2c784d2ee9ea5be00b821d2dbd27279ef132 (patch) | |
tree | c8a224219c1425bd3fa03b1a54487bf1f3de7449 /httemplate/misc/delete-addr_range.html | |
parent | 6ced51db0e73603461591e54b7f606467e7c7af0 (diff) | |
parent | e1157f37c618a7b9cdb2793d61999458076dc51b (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.html | 21 |
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> |