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_label'  => '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 $conf = new FS::Conf;
  33
  34 my @fields = (
  35   qw( description ip_addr speed_down speed_up blocknum ),
  36   { field=>'block_label', type=>'fixed' },
  37   qw( mac_addr latitude longitude altitude vlan_profile authkey )
  38 );
  39
  40 my $fixedblock = '';
  41
  42 my $callback = sub {
  43   my ($cgi, $object, $fieldref) = @_;
  44
  45   my $svcpart = $object->svcnum ? $object->cust_svc->svcpart
  46                                 : $cgi->param('svcpart');
  47
  48   my $part_svc = qsearchs( 'part_svc', { svcpart => $svcpart } );
  49   die "No part_svc entry!" unless $part_svc;
  50
  51   my $columndef = $part_svc->part_svc_column($fieldref->{'field'});
  52   if ($columndef->columnflag eq 'F') {
  53     $fieldref->{'type'} = 'fixed';
  54     $fieldref->{'value'} = $columndef->columnvalue;
  55     $fixedblock = $fieldref->{value}
  56       if $fieldref->{field} eq 'blocknum';
  57   }
  58
  59   if ($object->svcnum) {
  60
  61     $fieldref->{type} = 'hidden'
  62       if $fieldref->{field} eq 'blocknum';
  63
  64     $fieldref->{value} = $object->addr_block->label
  65       if $fieldref->{field} eq 'block_label';
  66
  67   } else {
  68
  69     if ($fieldref->{field} eq 'block_label') {
  70       if ($fixedblock) {
  71         $object->blocknum($fixedblock);
  72         $fieldref->{value} = $object->addr_block->label;
  73       }else{
  74         $fieldref->{type} = 'hidden';
  75       }
  76     }
  77
  78     if ($fieldref->{field} eq 'blocknum') {
  79       if ( $fixedblock or $conf->exists('auto_router') ) {
  80         $fieldref->{type} = 'hidden';
  81         $fieldref->{value} = $fixedblock;
  82         return;
  83       }
  84
  85       my $cust_pkg = qsearchs( 'cust_pkg', {pkgnum => $cgi->param('pkgnum')} );
  86       die "No cust_pkg entry!" unless $cust_pkg;
  87
  88       $object->svcpart($part_svc->svcpart);
  89       my @addr_block =
  90         grep {  ! $_->agentnum
  91                || $cust_pkg->cust_main->agentnum == $_->agentnum
  92                && $FS::CurrentUser::CurrentUser->agentnum($_->agentnum)
  93              }
  94         map { $_->addr_block } $object->allowed_routers;
  95       my @options = map { $_->blocknum } @addr_block;
  96       my %option_labels = map { ( $_->blocknum => $_->label ) } @addr_block;
  97       $fieldref->{type}    = 'select';
  98       $fieldref->{options} = \@options;
  99       $fieldref->{labels}  = \%option_labels;
 100     }
 101
 102   }
 103 };
 104
 105 </%init>