1 <% include('/elements/header.html', 'Routers') %>
3 <% include('/elements/error.html') %>
5 %my $hidecustomerrouters = 0;
7 %if ($cgi->param('hidecustomerrouters') eq '1') {
8 % $hidecustomerrouters = 1;
9 % $cgi->param('hidecustomerrouters', 0);
10 % $hideurl = '<A HREF="' . $cgi->self_url() . '">Show customer routers</A>';
12 % $hidecustomerrouters = 0;
13 % $cgi->param('hidecustomerrouters', 1);
14 % $hideurl = '<A HREF="' . $cgi->self_url() . '">Hide customer routers</A>';
17 <A HREF="<%$p2%>edit/router.cgi">Add a new router</A> | <%$hideurl%>
19 <% include('/elements/table-grid.html') %>
20 % my $bgcolor1 = '#eeeeee';
21 % my $bgcolor2 = '#ffffff';
25 <TH CLASS="grid" BGCOLOR="#cccccc">Router name</TH>
26 <TH CLASS="grid" BGCOLOR="#cccccc">Address block(s)</TH>
29 % foreach my $router (sort {$a->routernum <=> $b->routernum} @router) {
30 % next if $hidecustomerrouters && $router->svcnum;
31 % my @addr_block = $router->addr_block;
32 % if (scalar(@addr_block) == 0) {
33 % push @addr_block, ' ';
36 % if ( $bgcolor eq $bgcolor1 ) {
37 % $bgcolor = $bgcolor2;
39 % $bgcolor = $bgcolor1;
44 <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
45 <A HREF="<%$p2%>edit/router.cgi?<%$router->routernum%>"><%$router->routername%></A>
48 <TD CLASS="inv" BGCOLOR="<% $bgcolor %>">
49 <TABLE CLASS="inv" CELLSPACING=0 CELLPADDING=0>
51 % foreach my $block ( @addr_block ) {
54 <TD><%UNIVERSAL::isa($block, 'FS::addr_block') ? $block->NetAddr : ' '%></TD>
66 <% include('/elements/footer.html') %>
71 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
73 my @router = qsearch('router', {});