X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fbrowse%2Faddr_block.cgi;fp=httemplate%2Fbrowse%2Faddr_block.cgi;h=eac7cf7b6cfbac9fc72db95099ba9fe4acae6597;hp=8bbc5f350c3e93721a73ca568e6d371eff631fea;hb=d8c81a25cb29cf0ca5d7cdeb8160f79d4fbb0bc6;hpb=167b4b17fae06fbf56dd4b2655489643f35bfd8b diff --git a/httemplate/browse/addr_block.cgi b/httemplate/browse/addr_block.cgi index 8bbc5f350..eac7cf7b6 100644 --- a/httemplate/browse/addr_block.cgi +++ b/httemplate/browse/addr_block.cgi @@ -1,12 +1,4 @@ -<% include("/elements/header.html",'Address Blocks', menubar('Main Menu' => $p)) %> - -%use NetAddr::IP; -% -%my @addr_block = qsearch('addr_block', {}); -%my @router = qsearch('router', {}); -%my $block; -%my $p2 = popurl(2); -%my $path = $p2 . "edit/process/addr_block"; +<% include('/elements/header.html', 'Address Blocks') %> <% include('/elements/error.html') %> @@ -71,9 +63,18 @@ - - + +<% include('/elements/footer.html') %> + <%init> + die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); + +my @addr_block = qsearch('addr_block', {}); +my @router = qsearch('router', {}); +my $block; +my $p2 = popurl(2); +my $path = $p2 . "edit/process/addr_block"; +