ACL for hardware class config, RT#85057

[freeside.git] / httemplate / browse / hardware_class.html

diff --git a/httemplate/browse/hardware_class.html b/httemplate/browse/hardware_class.html
index aef0fa3..6423f4a 100644 (file)
--- a/httemplate/browse/hardware_class.html
+++ b/httemplate/browse/hardware_class.html
@@ -22,7 +22,7 @@
 my $curuser = $FS::CurrentUser::CurrentUser;
 
 die "access denied"
-  unless $curuser->access_right('Configuration');
+  unless $curuser->access_right('Edit hardware classes and types');
 
 my $menubar = 
   [ 'Hardware statuses'    => $p.'browse/hardware_status.html',
@@ -33,7 +33,17 @@ 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 }, ] 
+      my $num_svcs = FS::svc_hardware->count("typenum = ".$_->typenum);
+      $num_svcs = $num_svcs > 0 ? 
+        mt('<B>[_1]</B> [numerate,_1,service]',$num_svcs) : '';
+      my $search_link = $p.'search/svc_hardware.cgi?typenum='.$_->typenum;
+
+      [ 
+        { 'data' => $_->model, 'link' => $type_link },
+        { 'data' => $_->revision, 'link' => $type_link },
+        { 'data' => $num_svcs, 'link' => $search_link, 'size' => -1 }
+      ]
+
     } $hardware_class->hardware_type;
 
   \@rows;