installers, RT#16584

2 files changed, 30 insertions, 4 deletions

diff --git a/httemplate/browse/access_user.html b/httemplate/browse/access_user.html
index 6a1fea1ce..446bfe0be 100644
--- a/httemplate/browse/access_user.html
+++ b/httemplate/browse/access_user.html
@@ -49,6 +49,12 @@ my $groups_sub = sub {
 
 };
 
+my $installer_sub = sub {
+  my $access_user = shift;
+  my @sched_item = $access_user->sched_item or return '';
+  $sched_item[0]->disabled ? '(disabled)' : 'Installer';
+};
+
 my $cust_sub = sub {
   my $access_user = shift;
   $access_user->user_custnum ? $access_user->user_cust_main->name : '';
@@ -59,10 +65,12 @@ my $count_query = 'SELECT COUNT(*) FROM access_user';
 
 my $link = [ $p.'edit/access_user.html?', 'usernum' ];
 
-my @header = ( '#',       'Username', 'Full name', 'Groups',    'Customer' );
-my @fields = ( 'usernum', 'username', 'name',      $groups_sub, $cust_sub, );
-my $align = 'rllll';
-my @links = ( $link, $link, $link, '', $cust_link );
+my @header = (
+  'Username', 'Full name', 'Groups',    'Installer',    'Customer' );
+my @fields = (
+  'username', 'name',      $groups_sub, $installer_sub, $cust_sub, );
+my $align = 'lllcl';
+my @links = ( $link, $link, $link, '', '', $cust_link );
 
 #if ( FS::Conf->new->config('ticket_system') ) {
 #  push @header, 'Ticketing';
diff --git a/httemplate/browse/sched_item.html b/httemplate/browse/sched_item.html
new file mode 100644
index 000000000..09435805a
--- /dev/null
+++ b/httemplate/browse/sched_item.html
@@ -0,0 +1,18 @@
+<& elements/browse.html,
+     'title'         => 'Installers', #PL($sched_item_class->classname),
+     'name_singular' => 'installer', #$sched_item_class->classname
+     'query'         => { 'table' => 'sched_item' },
+     'count_query'   => 'SELECT COUNT(*) FROM sched_item',
+     'header'        => [ 'Installer', ], #$sched_item_class->classname
+     'fields'        => [ 'name' ],
+     #'links'         => [ $link, ],
+     'disableable'        => 1,
+     'disabled_statuspos' => 1,
+&>
+<%init>
+
+#XXX more specific AccessRight for scheduling
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+</%init>