From a97e5cbca3e7b9e7d59ecbe34057426b2ff7b34d Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 14 May 2013 00:28:55 -0700
Subject: svc_cable (2.3 backport), RT#22009

Conflicts:
	FS/FS/access_right.pm
	FS/MANIFEST
	httemplate/docs/part_svc-table.html
	httemplate/view/svc_phone.cgi
---
 httemplate/edit/process/cable_device.html | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 httemplate/edit/process/cable_device.html

(limited to 'httemplate/edit/process/cable_device.html')

diff --git a/httemplate/edit/process/cable_device.html b/httemplate/edit/process/cable_device.html
new file mode 100644
index 000000000..97b4f81d9
--- /dev/null
+++ b/httemplate/edit/process/cable_device.html
@@ -0,0 +1,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>
-- 
cgit v1.2.1