X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Faddr_block%2Fdeallocate.cgi;h=95e1b7e4de3cf05cf4c3981c3a84efa35f0d13da;hb=d1d39ca153781e8c6f2640f9a694b2631bec3550;hp=494c19f7586408a06020b405012d332e43b0d692;hpb=f3547a0b913f2c982df13177240c6c5ba0b29231;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>