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',
20 'field_callback' => $callback,
21 'dummy' => $cgi->query_string,
27 unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
29 # If it's stupid but it works, it's still stupid.
32 my $conf = new FS::Conf;
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 )
43 my ($cgi, $object, $fieldref) = @_;
45 my $svcpart = $object->svcnum ? $object->cust_svc->svcpart
46 : $cgi->param('svcpart');
48 my $part_svc = qsearchs( 'part_svc', { svcpart => $svcpart } );
49 die "No part_svc entry!" unless $part_svc;
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';
59 if ($object->svcnum) {
61 $fieldref->{type} = 'hidden'
62 if $fieldref->{field} eq 'blocknum';
64 $fieldref->{value} = $object->addr_block->label
65 if $fieldref->{field} eq 'block_label';
69 if ($fieldref->{field} eq 'block_label') {
71 $object->blocknum($fixedblock);
72 $fieldref->{value} = $object->addr_block->label;
74 $fieldref->{type} = 'hidden';
78 if ($fieldref->{field} eq 'blocknum') {
79 if ( $fixedblock or $conf->exists('auto_router') ) {
80 $fieldref->{type} = 'hidden';
81 $fieldref->{value} = $fixedblock;
85 my $cust_pkg = qsearchs( 'cust_pkg', {pkgnum => $cgi->param('pkgnum')} );
86 die "No cust_pkg entry!" unless $cust_pkg;
88 $object->svcpart($part_svc->svcpart);
91 || $cust_pkg->cust_main->agentnum == $_->agentnum
92 && $FS::CurrentUser::CurrentUser->agentnum($_->agentnum)
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;