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