X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Faddr_block%2Fdeallocate.cgi;fp=httemplate%2Fedit%2Fprocess%2Faddr_block%2Fdeallocate.cgi;h=95e1b7e4de3cf05cf4c3981c3a84efa35f0d13da;hb=2eda79fb265b3acdde85881f1160f6daa73f2d84;hp=494c19f7586408a06020b405012d332e43b0d692;hpb=8333462f80da553234ef53076a932e9f417e6ad2;p=freeside.git

diff --git a/httemplate/edit/process/addr_block/deallocate.cgi b/httemplate/edit/process/addr_block/deallocate.cgi
index 494c19f75..95e1b7e4d 100755
--- a/httemplate/edit/process/addr_block/deallocate.cgi
+++ b/httemplate/edit/process/addr_block/deallocate.cgi
@@ -23,3 +23,10 @@
 %}
 %
 
+<%init>
+
+my $conf = new FS::Conf;
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+</%init>