From b65b8096089410001dfbcd35f9a56f9405b9f5f1 Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Fri, 1 Apr 2011 02:52:24 +0000
Subject: svc_hardware and svc_dish, #11454

---
 httemplate/browse/hardware_class.html | 44 +++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 httemplate/browse/hardware_class.html

(limited to 'httemplate/browse/hardware_class.html')

diff --git a/httemplate/browse/hardware_class.html b/httemplate/browse/hardware_class.html
new file mode 100644
index 000000000..aef0fa39e
--- /dev/null
+++ b/httemplate/browse/hardware_class.html
@@ -0,0 +1,44 @@
+<% include( 'elements/browse.html',
+                 'title'       => 'Hardware Classes and Types',
+                 'name'        => 'hardware classes',
+                 'menubar'     => $menubar,
+                 'query'       => { 'table' => 'hardware_class' },
+                 'count_query' => 'SELECT COUNT(*) FROM hardware_class',
+                 'header'      => [ '#', 'Hardware class', '', 'Device types' ],
+                 'fields'      => [ 'classnum',
+                                    'classname',
+                                    '',
+                                    $types_sub,
+                                  ],
+                 'links'       => [ $class_link,
+                                    $class_link,
+                                    '',
+                                    '',
+                                  ],
+             )
+%>
+<%init>
+
+my $curuser = $FS::CurrentUser::CurrentUser;
+
+die "access denied"
+  unless $curuser->access_right('Configuration');
+
+my $menubar = 
+  [ 'Hardware statuses'    => $p.'browse/hardware_status.html',
+    'Add a hardware class' => $p.'edit/hardware_class.html',
+    'Add a device type',   => $p.'edit/hardware_type.html', ];
+
+my $types_sub = sub {
+  my $hardware_class = shift;
+  my @rows = map { 
+      my $type_link = $p.'edit/hardware_type.html?'.$_->typenum;
+      [ { 'data' => $_->model, 'link' => $type_link }, ] 
+    } $hardware_class->hardware_type;
+
+  \@rows;
+};
+
+my $class_link = [ "${p}edit/hardware_class.html?", 'classnum' ];
+
+</%init>
-- 
cgit v1.2.1