<& 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') ]); '' }