1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
<% include( 'elements/edit.html',
'name' => 'DSL device',
'table' => 'dsl_device',
'labels' => {
'devicenum' => 'Device',
'mac_addr' => 'MAC address',
},
'fields' => [ { field => 'mac_addr',
type => 'select-mac',
},
{ 'field' => 'svcnum',
'type' => 'hidden',
},
],
'menubar' => [], #disable viewall
#'viewall_dir' => 'browse',
'new_callback' => sub {
my( $cgi, $object ) = @_;
$object->svcnum( $cgi->param('svcnum') );
},
)
%>
<%init>
# :/ needs agent-virt so you can't futz with arbitrary devices
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
</%init>
|