blob: 97b4f81d9d7463c683c029f8fbd71d00cd35473a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
<% include( 'elements/process.html',
'table' => 'cable_device',
'redirect' => sub {
my( $cgi, $cable_device ) = @_;
#popurl(3).'view/svc_cable.html?'.
popurl(3).'view/svc_Common.html?svcdb=svc_cable;'.
'svcnum='. $cable_device->svcnum.
';devicenum=';
},
)
%>
<%init>
if($cgi->param('sel_mac_addr') && !$cgi->param('mac_addr')) {
$cgi->param('mac_addr',$cgi->param('sel_mac_addr'));
}
# :/ 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>
|