query strings get passed through sometimes?
[freeside.git] / httemplate / browse / router.cgi
1 <%= header('Routers', menubar('Main Menu'   => $p)) %>
2 <%
3
4 my @router = qsearch('router', {});
5 my $p2 = popurl(2);
6
7 %>
8
9 <% if ($cgi->param('error')) { %>
10    <FONT SIZE="+1" COLOR="#ff0000">Error: <%=$cgi->param('error')%></FONT>
11    <BR><BR>
12 <% } %>
13
14 <A HREF="<%=$p2%>edit/router.cgi"><I>Add a new router</I></A><BR><BR>
15
16 <%=table()%>
17   <TR>
18     <TD><B>Router name</B></TD>
19     <TD><B>Address block(s)</B></TD>
20   </TR>
21 <% foreach my $router (sort {$a->routernum <=> $b->routernum} @router) {
22      my @addr_block = $router->addr_block;
23 %>
24   <TR>
25     <TD ROWSPAN="<%=scalar(@addr_block)%>">
26       <A HREF="<%=$p2%>edit/router.cgi?<%=$router->routernum%>"><%=$router->routername%></A>
27     </TD>
28     <TD>
29     <% foreach my $block ( @addr_block ) { %>
30       <%=$block->NetAddr%></BR>
31     <% } %>
32     </TD>
33   </TR>
34 <% } %>
35 </TABLE>
36 </BODY>
37 </HTML>
38