httemplate/elements/tr-select-router_block_ip.html

   1 <script type="text/javascript">
   2 var manual_addr_routernum = <% encode_json(\%manual_addr_routernum) %>;
   3 var ip_addr_curr_value = <% $opt{'ip_addr'} |js_string %>;
   4 var blocknum_curr_value = <% $opt{'blocknum'} |js_string %>;
   5 function update_ip_addr(obj, i) {
   6   var routernum = document.getElementById('router_select_0').value;
   7   var select_blocknum = document.getElementById('router_select_1');
   8   var blocknum = select_blocknum.value;
   9   var input_ip_addr = document.getElementById('input_ip_addr');
  10   if ( manual_addr_routernum[routernum] == 'Y' ) {
  11 %# hide block selection and default ip address to its previous value
  12     select_blocknum.style.display = 'none';
  13     input_ip_addr.value = ip_addr_curr_value;
  14   }
  15   else {
  16 %# the reverse
  17     select_blocknum.style.display = '';
  18 %# default ip address to null, unless the router/block are set to the
  19 %# previous value, in which case default it to current value
  20     if ( routernum == router_curr_values[0] &&
  21          blocknum  == router_curr_values[1] ) {
  22       input_ip_addr.value = ip_addr_curr_value;
  23     } else {
  24       input_ip_addr.value = <% mt('(automatic)') |js_string %>;
  25     }
  26   }
  27 }
  28 function clearhint_ip_addr (what) {
  29   if ( what.value == <% mt('(automatic)') |js_string %> )
  30     what.value = '';
  31 }
  32 </script>
  33 <& /elements/tr-td-label.html, label => ($opt{'label'} || 'Router') &>
  34 <td>
  35   <& /elements/select-tiered.html, prefix => 'router_', tiers => [
  36   {
  37     field     => 'routernum',
  38     records   => \@routers,
  39     name_col  => 'routername',
  40     value_col => 'routernum',
  41     onchange  => 'update_ip_addr',
  42     curr_value=> $opt{'routernum'},
  43   },
  44   {
  45     field     => 'blocknum',
  46     table     => 'addr_block',
  47     hashref   => (exists($fixed{'blocknum'}) ?
  48                     { blocknum => $fixed{'blocknum'} } : {}
  49                  ),
  50     name_col  => 'cidr',
  51     link_col  => 'routernum',
  52     empty_label => '(any)',
  53     onchange  => 'update_ip_addr',
  54     curr_value  => $opt{'blocknum'},
  55   },
  56 ]
  57 &>
  58 </td></tr>
  59 <& /elements/tr-td-label.html, label => 'IP address' &>
  60 <td>
  61 % if ( $fixed{'ip_addr'} ) {
  62   <input type="hidden" id="input_ip_addr" name="ip_addr"
  63     value="<% $opt{'ip_addr'} |h%>"><% $opt{'ip_addr'} || '' %>
  64 % }
  65 % else {
  66   <input type="text" id="input_ip_addr" name="ip_addr"
  67   value="<% $opt{'ip_addr'} |h%>" onfocus="clearhint_ip_addr(this)">
  68 % }
  69 </td> </tr>
  70 <script type="text/javascript">
  71 update_ip_addr();
  72 </script>
  73 <%init>
  74
  75 my %opt = @_;
  76 my @routers;
  77 my $conf = FS::Conf->new;
  78
  79 my $svc_x = $opt{'object'};
  80 if ( $svc_x ) {
  81   $opt{$_} = $svc_x->$_
  82     foreach qw(routernum blocknum ip_addr svcpart);
  83   if ( $svc_x->svcnum ) {
  84     $opt{'svcpart'} = $svc_x->cust_svc->svcpart;
  85   }
  86 }
  87
  88 my $svcpart = $opt{'svcpart'} || '';
  89 my %fixed; #  which fields are fixed
  90 $svcpart =~ /^\d*$/ or die "invalid svcpart '$svcpart'";
  91 if ( $svcpart ) {
  92   my $part_svc = FS::part_svc->by_key($svcpart);
  93   # Traditionally, columnflag 'F' on IP address means that it MUST
  94   # be auto-assigned (or, if null IP addresses are allowed, that
  95   # it must be null).
  96   foreach (qw(routernum blocknum ip_addr)) {
  97     my $psc = $part_svc->part_svc_column($_);
  98     if ( $psc and $psc->columnflag eq 'F' ) {
  99       $fixed{$_} = $psc->columnvalue;
 100     }
 101   }
 102   if ( $fixed{'routernum'} ) {
 103     @routers = (FS::router->by_key($fixed{'routernum'}))
 104   }
 105   else {
 106     @routers = map { $_->router }
 107       qsearch('part_svc_router', { svcpart => $svcpart });
 108   }
 109 }
 110 else {
 111   @routers = qsearch('router', {});
 112 }
 113
 114 my %manual_addr_routernum = map { $_->routernum, $_->manual_addr } @routers;
 115
 116 if ( $conf->exists('auto_router') ) {
 117   # Then show an "(automatic)" router, with no blocks.  manual_addr is on
 118   # so that the ip_addr field will be unlocked.
 119   unshift @routers, FS::router->new({
 120       'routernum'   => '',
 121       'routername'  => '(automatic)',
 122       'manual_addr' => 'Y',
 123   });
 124   $manual_addr_routernum{''} = 'Y';
 125 }
 126
 127 </%init>