1 <& elements/svc_Common.html,
4 redirect => popurl(3)."view/svc_fiber.cgi?",
5 precheck_callback => $precheck_callback,
10 unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
12 my $precheck_callback = sub {
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 ));