<% include( 'elements/browse.html',
'title' => 'Internal Access Groups',
- 'menubar' => [ # 'Main menu' => $p,
- 'Internal users' => $p.'browse/access_user.html',
- ],
+ 'menubar' => [ 'Internal users' => $p.'browse/access_user.html', ],
'html_init' => $html_init,
'name' => 'internal access groups',
'query' => { 'table' => 'access_group',
<% include( 'elements/browse.html',
'title' => 'Internal Users',
- 'menubar' => [ #'Main menu' => $p,
- 'Internal access groups' => $p.'browse/access_group.html',
- ],
+ 'menubar' => [ 'Internal access groups' => $p.'browse/access_group.html', ],
'html_init' => $html_init,
'name' => 'internal users',
'disableable' => 1,
-<% 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') %>
</FORM>
</TR>
</TABLE>
-</BODY>
-</HTML>
+
+<% 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";
+
</%init>
<% include("/elements/header.html",'Agent Listing', menubar(
- 'Main Menu' => $p,
'Agent Types' => $p. 'browse/agent_type.cgi',
# 'Add new agent' => '../edit/agent.cgi'
)) %>
<% include( 'elements/browse.html',
'title' => 'Agent Types',
- 'menubar' => [ #'Main menu' => $p,
- 'Agents' =>"${p}browse/agent.cgi",
- ],
+ 'menubar' => [ 'Agents' =>"${p}browse/agent.cgi", ],
'html_init' => $html_init,
'name' => 'agent types',
'query' => { 'table' => 'agent_type',
-<!-- mason kludge -->
-%
-%
-%print header('NAS ports', menubar(
-% 'Main Menu' => $p,
-%));
+%print header('NAS ports');
%
%my $now = time;
%
%# <TH>NAS</
%
+<%init>
+
+#this hasn't been used in ages, and isn't linked from anywhere...
+die 'NAS browse not currently active';
+
+</%init>
<% include( 'elements/browse.html',
'title' => 'Package Definitions',
- 'menubar' => [ 'Main Menu' => $p ],
'html_init' => $html_init,
'name' => 'package definitions',
'disableable' => 1,
-<% include("/elements/header.html",'Service Definition Listing', menubar( 'Main Menu' => $p) ) %>
+<% include('/elements/header.html', 'Service Definition Listing') %>
<SCRIPT>
function part_export_areyousure(href) {
-<% include("/elements/header.html",'Virtual field definitions', menubar('Main Menu' => $p)) %>
-
-%my %pvfs;
-%my $block;
-%my $p2 = popurl(2);
-%my $dbtable;
-%
-%foreach (qsearch('part_virtual_field', {})) {
-% push @{ $pvfs{$_->dbtable} }, $_;
-%}
+<% include('/elements/header.html', 'Virtual field definitions') %>
<% include('/elements/error.html') %>
</TABLE>
% }
-</BODY>
-</HTML>
+<% include('/elements/footer.html') %>
+
<%init>
+
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+my %pvfs;
+my $block;
+my $p2 = popurl(2);
+my $dbtable;
+
+foreach (qsearch('part_virtual_field', {})) {
+ push @{ $pvfs{$_->dbtable} }, $_;
+}
+
</%init>
<% include("/elements/header.html",'Payment gateways', menubar(
- 'Main Menu' => $p,
'Agents' => $p. 'browse/agent.cgi',
)) %>
</TABLE>
-</BODY>
-</HTML>
+
+<% include('/elements/footer.html') %>
+
<%init>
die "access denied"
<% include( 'elements/browse.html',
'title' => ucfirst($classname) . ' Reasons',
- 'menubar' => [ # 'Main menu' => $p,
- ucfirst($classname) . ' Reason Types' =>
- $p.'browse/reason_type.html?class='.
- $class,
+ 'menubar' => [ ucfirst($classname).' Reason Types' =>
+ $p."browse/reason_type.html?class=$class"
],
'html_init' => $html_init,
'name' => $classname . ' reasons',
-<% include("/elements/header.html",'Routers', menubar('Main Menu' => $p)) %>
-%
-%my @router = qsearch('router', {});
-%my $p2 = popurl(2);
+<% include('/elements/header.html', 'Routers') %>
<% include('/elements/error.html') %>
% $cgi->param('hidecustomerrouters', 1);
% $hideurl = '<A HREF="' . $cgi->self_url() . '">Hide customer routers</A>';
%}
-%
-
<A HREF="<%$p2%>edit/router.cgi">Add a new router</A> | <%$hideurl%>
% }
</TABLE>
-</BODY>
-</HTML>
+
+<% include('/elements/footer.html') %>
+
<%init>
+
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+my @router = qsearch('router', {});
+my $p2 = popurl(2);
+
</%init>