httemplate/edit/process/svc_broadband.cgi

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