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',
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.
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 )
39 my ($cgi, $object, $fieldref) = @_;
41 my $svcpart = $object->svcnum ? $object->cust_svc->svcpart
42 : $cgi->param('svcpart');
44 my $part_svc = qsearchs( 'part_svc', { svcpart => $svcpart } );
45 die "No part_svc entry!" unless $part_svc;
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;
53 if ($object->svcnum) {
55 $fieldref->{type} = 'hidden'
56 if $fieldref->{field} eq 'blocknum';
58 $fieldref->{value} = $object->addr_block->label
59 if $fieldref->{field} eq 'block_label';
63 $fieldref->{type} = 'hidden' if $fieldref->{field} eq 'block_label';
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;
69 $object->svcpart($part_svc->svcpart);
72 || $cust_pkg->cust_main->agentnum == $_->agentnum
73 && $FS::CurrentUser::CurrentUser->agentnum($_->agentnum)
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;