1 <% include("/elements/header.html",'Routers', menubar('Main Menu' => $p)) %>
4 %my @router = qsearch('router', {});
8 % if ($cgi->param('error')) {
10 <FONT SIZE="+1" COLOR="#ff0000">Error: <%$cgi->param('error')%></FONT>
14 %my $hidecustomerrouters = 0;
16 %if ($cgi->param('hidecustomerrouters') eq '1') {
17 % $hidecustomerrouters = 1;
18 % $cgi->param('hidecustomerrouters', 0);
19 % $hideurl = '<A HREF="' . $cgi->self_url() . '">Show customer routers</A>';
21 % $hidecustomerrouters = 0;
22 % $cgi->param('hidecustomerrouters', 1);
23 % $hideurl = '<A HREF="' . $cgi->self_url() . '">Hide customer routers</A>';
28 <A HREF="<%$p2%>edit/router.cgi">Add a new router</A> | <%$hideurl%>
32 <TD><B>Router name</B></TD>
33 <TD><B>Address block(s)</B></TD>
35 % foreach my $router (sort {$a->routernum <=> $b->routernum} @router) {
36 % next if $hidecustomerrouters && $router->svcnum;
37 % my @addr_block = $router->addr_block;
38 % if (scalar(@addr_block) == 0) {
39 % push @addr_block, ' ';
44 <TD ROWSPAN="<%scalar(@addr_block)+1%>">
45 <A HREF="<%$p2%>edit/router.cgi?<%$router->routernum%>"><%$router->routername%></A>
48 % foreach my $block ( @addr_block ) {
51 <TD><%UNIVERSAL::isa($block, 'FS::addr_block') ? $block->NetAddr : ' '%></TD>
63 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');