1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
<% include('elements/edit.html',
'post_url' => popurl(1).'process/router.cgi',
'name' => 'router',
'table' => 'router',
'viewall_url' => "${p}browse/router.cgi",
'labels' => { 'routernum' => 'Router',
'routername' => 'Name',
'svc_part' => 'Service',
'agentnum' => 'Agent',
'manual_addr' => 'Assign IP addresses manually',
},
'fields' => [
{ 'field'=>'routername', 'type'=>'text', 'size'=>32 },
{ 'field'=>'agentnum', 'type'=>'select-agent' },
{ 'field'=>'svcnum', 'type'=>'hidden' },
{ 'field'=>'manual_addr','type'=>'checkbox','value'=>'Y'},
],
'error_callback' => $callback,
'edit_callback' => $callback,
'new_callback' => $callback,
'html_table_bottom' => $html_table_bottom,
)
%>
<%init>
my $curuser = $FS::CurrentUser::CurrentUser;
die "access denied"
unless $curuser->access_right('Broadband configuration')
|| $curuser->access_right('Broadband global configuration');
my @svc_x = 'svc_broadband';
if ( FS::Conf->new->exists('svc_acct-ip_addr') ) {
push @svc_x, 'svc_acct';
}
my $callback = sub {
my ($cgi, $object, $fields) = (shift, shift, shift);
my $extra_sql = ' AND svcdb IN(' . join(',', map { "'$_'" } @svc_x) . ')';
unless ($object->svcnum) {
push @{$fields},
{ 'type' => 'tablebreak-tr-title',
'value' => 'Select the service types available on this router',
},
{ 'field' => 'svc_part',
'type' => 'checkboxes-table',
'target_table' => 'part_svc',
'link_table' => 'part_svc_router',
'name_col' => 'svc',
'hashref' => { 'disabled' => '' },
'extra_sql' => $extra_sql,
};
}
};
my $html_table_bottom = sub {
my $router = shift;
my $html = '';
foreach my $field ($router->virtual_fields) {
$html .= $router->pvf($field)->widget('HTML', 'edit', $router->get($field));
}
$html;
};
</%init>
|
