httemplate/edit/svc_broadband.cgi

   1 <% include('elements/svc_Common.html',
   2      'post_url'             => popurl(1). 'process/svc_broadband.cgi',
   3      'name'                 => 'broadband service',
   4      'table'                => 'svc_broadband',
   5      'labels'               => { 'svcnum'       => 'Service #',
   6                                  'description'  => 'Description',
   7                                  'ip_addr'      => 'IP address',
   8                                  'speed_down'   => 'Download speed',
   9                                  'speed_up'     => 'Upload speed',
  10                                  'blocknum'     => 'Router/Block',
  11                                  'block_disp'   => 'Router/Block',
  12                                  'mac_addr'     => 'MAC address',
  13                                  'latitude'     => 'Latitude',
  14                                  'longitude'    => 'Longitude',
  15                                  'altitude'     => 'Altitude',
  16                                  'vlan_profile' => 'VLAN profile',
  17                                  'authkey'      => 'Authentication key',
  18                                },
  19      'fields'               => \@fields,
  20      'field_callback'       => $callback,
  21      'dummy'                => $cgi->query_string,
  22      )
  23 %>
  24 <%init>
  25
  26 die "access denied"
  27   unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
  28
  29 # If it's stupid but it works, it's still stupid.
  30 #  -Kristian
  31
  32 my @fields = (
  33   qw( description ip_addr speed_down speed_up blocknum ),
  34   { field=>'block_label', type=>'fixed' },
  35   qw( mac_addr latitude longitude altitude vlan_profile authkey )
  36 );
  37
  38 my $callback = sub {
  39   my ($cgi, $object, $fieldref) = @_;
  40
  41   my $svcpart = $object->svcnum ? $object->cust_svc->svcpart
  42                                 : $cgi->param('svcpart');
  43
  44   my $part_svc = qsearchs( 'part_svc', { svcpart => $svcpart } );
  45   die "No part_svc entry!" unless $part_svc;
  46
  47   my $columndef = $part_svc->part_svc_column($fieldref->{'field'});
  48   if ($columndef->columnflag eq 'F') {
  49     $fieldref->{'type'} = 'fixed';
  50     $fieldref->{'value'} = $columndef->columnvalue;
  51   }
  52
  53   if ($object->svcnum) {
  54
  55     $fieldref->{type} = 'hidden'
  56       if $fieldref->{field} eq 'blocknum';
  57
  58     $fieldref->{value} = $object->addr_block->label
  59       if $fieldref->{field} eq 'block_label';
  60
  61   } else {
  62
  63     $fieldref->{type} = 'hidden' if $fieldref->{field} eq 'block_label';
  64
  65     if ($fieldref->{field} eq 'blocknum') {
  66       my $cust_pkg = qsearchs( 'cust_pkg', {pkgnum => $cgi->param('pkgnum')} );
  67       die "No cust_pkg entry!" unless $cust_pkg;
  68
  69       $object->svcpart($part_svc->svcpart);
  70       my @addr_block =
  71         grep {  ! $_->agentnum
  72                || $cust_pkg->cust_main->agentnum == $_->agentnum
  73                && $FS::CurrentUser::CurrentUser->agentnum($_->agentnum)
  74              }
  75         map { $_->addr_block } $object->allowed_routers;
  76       my @options = map { $_->blocknum } @addr_block;
  77       my %option_labels = map { ( $_->blocknum => $_->label ) } @addr_block;
  78       $fieldref->{type}    = 'select';
  79       $fieldref->{options} = \@options;
  80       $fieldref->{labels}  = \%option_labels;
  81     }
  82
  83   }
  84 };
  85
  86 </%init>