httemplate/edit/router.cgi

   1 <HTML><BODY>
   2
   3 <%
   4
   5 my $router;
   6 if ( $cgi->keywords ) {
   7   my($query) = $cgi->keywords;
   8   $query =~ /^(\d+)$/;
   9   $router = qsearchs('router', { routernum => $1 })
  10       or print $cgi->redirect(popurl(2)."browse/router.cgi") ;
  11 } else {
  12   $router = new FS::router ( {
  13     map { $_, scalar($cgi->param($_)) } fields('router')
  14   } );
  15 }
  16
  17 my $routernum = $router->routernum;
  18 my $action = $routernum ? 'Edit' : 'Add';
  19 my $hashref = $router->hashref;
  20
  21 print header("$action Router", menubar(
  22   'Main Menu' => "$p",
  23   'View all routers' => "${p}browse/router.cgi",
  24 ));
  25
  26 if($cgi->param('error')) {
  27 %> <FONT SIZE="+1" COLOR="#ff0000">Error: <%=$cgi->param('error')%></FONT>
  28 <% } %>
  29
  30 <FORM ACTION="<%=popurl(1)%>process/router.cgi" METHOD=POST>
  31   <INPUT TYPE="hidden" NAME="routernum" VALUE="<%=$routernum%>">
  32     Router #<%=$routernum or "(NEW)"%>
  33
  34 <BR><BR>Name <INPUT TYPE="text" NAME="routername" SIZE=32 VALUE="<%=$hashref->{routername}%>">
  35
  36 <BR><BR>
  37 Custom fields:
  38 <BR>
  39 <%=table() %>
  40
  41 <%
  42 # I know, I know.  Massive false laziness with edit/svc_broadband.cgi.  But
  43 # Kristian won't let me generalize the custom field mechanism to every table in
  44 # the database, so this is what we get.  <snarl>
  45 # -- MW
  46
  47 my @part_router_field = qsearch('part_router_field', { });
  48 my %rf = map { $_->part_router_field->name, $_->value } $router->router_field;
  49 foreach (sort { $a->name cmp $b->name } @part_router_field) {
  50   %>
  51   <TR>
  52     <TD ALIGN="right"><%=$_->name%></TD>
  53     <TD><%
  54   if(my @opts = $_->list_values) {
  55     %>  <SELECT NAME="rf_<%=$_->routerfieldpart%>" SIZE="1">
  56           <%
  57     foreach $opt (@opts) {
  58       %>  <OPTION VALUE="<%=$opt%>"<%=($opt eq $rf{$_->name})
  59               ? ' SELECTED' : ''%>>
  60             <%=$opt%>
  61           </OPTION>
  62    <% } %>
  63         </SELECT>
  64  <% } else { %>
  65         <INPUT NAME="rf_<%=$_->routerfieldpart%>"
  66         VALUE="<%=$rf{$_->name}%>"
  67         <%=$_->length ? 'SIZE="'.$_->length.'"' : ''%>>
  68   <% } %></TD>
  69   </TR>
  70 <% } %>
  71 </TABLE>
  72
  73
  74
  75 <BR><BR>Select the service types available on this router<BR>
  76 <%
  77
  78 foreach my $part_svc ( qsearch('part_svc', { svcdb    => 'svc_broadband',
  79                                              disabled => '' }) ) {
  80   %>
  81   <BR>
  82   <INPUT TYPE="checkbox" NAME="svcpart_<%=$part_svc->svcpart%>"<%=
  83       qsearchs('part_svc_router', { svcpart   => $part_svc->svcpart,
  84                                     routernum => $routernum } ) ? 'CHECKED' : ''%> VALUE="ON">
  85   <A HREF="<%=${p}%>edit/part_svc.cgi?<%=$part_svc->svcpart%>">
  86     <%=$part_svc->svcpart%>: <%=$part_svc->svc%></A>
  87   <% } %>
  88
  89   <BR><BR><INPUT TYPE="submit" VALUE="Apply changes">
  90   </FORM>
  91 </BODY></HTML>
  92