httemplate/edit/process/svc_fiber.html

   1 <& elements/svc_Common.html,
   2     table       => 'svc_fiber',
   3     edit_ext    => 'html',
   4     redirect    => popurl(3)."view/svc_fiber.cgi?",
   5     precheck_callback => $precheck_callback,
   6 &>
   7 <%init>
   8
   9 die "access denied"
  10   unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
  11
  12 my $precheck_callback = sub {
  13   my $cgi = shift;
  14   # recombine fdu/fat/subfat/port
  15   my $circuit_id = $cgi->param('circuit_id_fdu') . '/' .
  16                    $cgi->param('circuit_id_fat') . $cgi->param('circuit_id_subfat') . '/' .
  17                    $cgi->param('circuit_id_port');
  18   $cgi->param('circuit_id', $circuit_id);
  19   $cgi->delete(qw( circuit_id_fdu circuit_id_fat circuit_id_subfat circuit_id_port ));
  20   '';
  21 };
  22
  23 </%init>