httemplate/edit/router.cgi

   1 <% include('/elements/header.html', "$action Router", menubar(
   2      'View all routers' => "${p}browse/router.cgi",
   3    ))
   4 %>
   5
   6 <% include('/elements/error.html') %>
   7
   8 <FORM ACTION="<%popurl(1)%>process/router.cgi" METHOD=POST>
   9   <INPUT TYPE="hidden" NAME="table" VALUE="router">
  10   <INPUT TYPE="hidden" NAME="redirect_ok" VALUE="<%$p3%>/browse/router.cgi">
  11   <INPUT TYPE="hidden" NAME="redirect_error" VALUE="<%$p3%>/edit/router.cgi">
  12   <INPUT TYPE="hidden" NAME="routernum" VALUE="<%$routernum%>">
  13   <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$router->svcnum%>">
  14     Router #<%$routernum or "(NEW)"%>
  15
  16 <BR><BR>Name <INPUT TYPE="text" NAME="routername" SIZE=32 VALUE="<%$router->routername%>">
  17
  18 <BR><BR>
  19 Custom fields:
  20 <BR>
  21 <%table() %>
  22 %
  23 %foreach my $field ($router->virtual_fields) {
  24 %  print $router->pvf($field)->widget('HTML', 'edit',
  25 %        $router->getfield($field));
  26 %}
  27 %
  28
  29 </TABLE>
  30 %
  31 %unless ($router->svcnum) {
  32 %
  33
  34 <BR><BR>Select the service types available on this router<BR>
  35 %
  36 %
  37 %  foreach my $part_svc ( qsearch('part_svc', { svcdb    => 'svc_broadband',
  38 %                                               disabled => '' }) ) {
  39 %
  40
  41   <BR>
  42   <INPUT TYPE="checkbox" NAME="svcpart_<%$part_svc->svcpart%>"<%
  43       qsearchs('part_svc_router', { svcpart   => $part_svc->svcpart,
  44                                     routernum => $routernum } ) ? ' CHECKED' : ''%> VALUE="ON">
  45   <A HREF="<%${p}%>edit/part_svc.cgi?<%$part_svc->svcpart%>">
  46     <%$part_svc->svcpart%>: <%$part_svc->svc%></A>
  47 % }
  48 % }
  49
  50
  51   <BR><BR><INPUT TYPE="submit" VALUE="Apply changes">
  52   </FORM>
  53
  54 <% include('/elements/footer.html') %>
  55
  56 <%init>
  57
  58 die "access denied"
  59   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
  60
  61 my $router;
  62 if ( $cgi->keywords ) {
  63   my($query) = $cgi->keywords;
  64   $query =~ /^(\d+)$/;
  65   $router = qsearchs('router', { routernum => $1 })
  66       or print $cgi->redirect(popurl(2)."browse/router.cgi") ;
  67 } else {
  68   $router = new FS::router ( {
  69     map { $_, scalar($cgi->param($_)) } fields('router')
  70   } );
  71 }
  72
  73 my $routernum = $router->routernum;
  74 my $action = $routernum ? 'Edit' : 'Add';
  75
  76 my $p3 = popurl(3);
  77
  78 </%init>