X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fdsl_device.html;fp=httemplate%2Fedit%2Fprocess%2Fdsl_device.html;h=4dd53d4445bd98c40e828f96a262d6fbc7f3e27b;hb=c9678906cb89a0c05a67d8118898202b64f84fd6;hp=0000000000000000000000000000000000000000;hpb=a87829a0945ad5199b8676756c3186a7139d086d;p=freeside.git

diff --git a/httemplate/edit/process/dsl_device.html b/httemplate/edit/process/dsl_device.html
new file mode 100644
index 000000000..4dd53d444
--- /dev/null
+++ b/httemplate/edit/process/dsl_device.html
@@ -0,0 +1,22 @@
+<% include( 'elements/process.html',
+               'table'    => 'dsl_device',
+               'redirect' => sub {
+                 my( $cgi, $dsl_device ) = @_;
+                 popurl(3).'view/svc_dsl.cgi?'.
+                   'svcnum='. $dsl_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>