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 # for historical reasons, process_m2m for usergroup tables is done
   8 # in the svc_x::insert/replace/delete methods, not here
   9 my $curuser = $FS::CurrentUser::CurrentUser;
  10
  11 die "access denied"
  12   unless $curuser->access_right('Provision customer service'); #something else more specific?
  13
  14 sub precheck {
  15   my $cgi = shift;
  16   my $ip_addr = $cgi->param('ip_addr');
  17   $ip_addr =~ s/[^\d\.]//g; # converts '(automatic)' to null
  18   $cgi->param('ip_addr', $ip_addr);
  19   $cgi->param("usergroup", [ $cgi->param('usergroup') ]);
  20   ''
  21 }
  22
  23 </%init>