httemplate/edit/process/cable_device.html

   1 <% include( 'elements/process.html',
   2                'table'    => 'cable_device',
   3                'redirect' => sub {
   4                  my( $cgi, $cable_device ) = @_;
   5                  #popurl(3).'view/svc_cable.html?'.
   6                  popurl(3).'view/svc_Common.html?svcdb=svc_cable;'.
   7                    'svcnum='. $cable_device->svcnum.
   8                    ';devicenum=';
   9                },
  10            )
  11 %>
  12 <%init>
  13
  14 if($cgi->param('sel_mac_addr') && !$cgi->param('mac_addr')) {
  15     $cgi->param('mac_addr',$cgi->param('sel_mac_addr'));
  16 }
  17
  18 # :/  needs agent-virt so you can't futz with arbitrary devices
  19
  20 die "access denied"
  21   unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
  22
  23 </%init>