svn commit: r300907 - user/des/fbce/lib/FBCE/Script

[Dag-Erling Smørgrav]

Author: des
Date: Sat May 28 18:28:28 2016
New Revision: 300907
URL: https://svnweb.freebsd.org/changeset/base/300907

Log:
  Include incumbent status in the output of the list command.

Modified:
  user/des/fbce/lib/FBCE/Script/User.pm

Modified: user/des/fbce/lib/FBCE/Script/User.pm
==============================================================================
--- user/des/fbce/lib/FBCE/Script/User.pm	Sat May 28 17:43:40 2016	(r300906)
+++ user/des/fbce/lib/FBCE/Script/User.pm	Sat May 28 18:28:28 2016	(r300907)
@@ -133,14 +133,16 @@ sub cmd_list($@) {
 	if @argv;
     my $persons = FBCE->model('FBCE::Person')->
 	search(undef, { order_by => 'login' });
-    printf("%-16s%-8s%-8s%s\n",
+    printf("%-16s%-8s%-8s%-8s%s\n",
 	   'login',
-	   'active',
-	   'admin',
+	   'inc',
+	   'act',
+	   'adm',
 	   'name');
     foreach my $person ($persons->all()) {
-	printf("%-16s%-8s%-8s%s\n",
+	printf("%-16s%-8s%-8s%-8s%s\n",
 	       $person->login,
+	       $person->incumbent ? 'yes' : 'no',
 	       $person->active ? 'yes' : 'no',
 	       $person->admin ? 'yes' : 'no',
 	       $person->name);