4 <% $cgi->redirect($p. "view/svc_dsl.cgi?". $svcnum) %>
8 # :/ needs agent-virt so you can't futz with arbitrary devices
11 unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
14 my($query) = $cgi->keywords;
15 $query =~ /^(\d+)$/ || die "Illegal devicenum";
18 my $dsl_device = qsearchs('dsl_device', { 'devicenum' => $devicenum } );
19 my $svcnum = $dsl_device->svcnum;
21 my $error = $dsl_device->delete;