blob: 25644e547f1ede69efc440d3d1bcc9b6fc7c79aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
<& elements/svc_Common.html,
table => 'svc_broadband',
fields => [ fields('svc_broadband'), fields('nas'), 'usergroup' ],
precheck_callback => \&precheck,
&>
<%init>
my $curuser = $FS::CurrentUser::CurrentUser;
die "access denied"
unless $curuser->access_right('Provision customer service'); #something else more specific?
sub precheck {
my $cgi = shift;
my $ip_addr = $cgi->param('ip_addr');
$ip_addr =~ s/[^\d\.]//g; # converts '(automatic)' to null
$cgi->param('ip_addr', $ip_addr);
$cgi->param("usergroup", [ $cgi->param('usergroup') ]);
''
}
</%init>
|