From 13323936b4a00c33bd479bffc3693d2facc0d6e3 Mon Sep 17 00:00:00 2001
From: Mark Buechler <mark.buechler@gmail.com>
Date: Tue, 3 Aug 2010 18:50:36 +0000
Subject: [PATCH] - Better list trace levels.

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@1925 d57e44dd-8a1f-0410-8b47-8ef2f437770f
---
 scstadmin/scstadmin.sysfs/scstadmin | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/scstadmin/scstadmin.sysfs/scstadmin b/scstadmin/scstadmin.sysfs/scstadmin
index ddf42ef19..40733de2e 100755
--- a/scstadmin/scstadmin.sysfs/scstadmin
+++ b/scstadmin/scstadmin.sysfs/scstadmin
@@ -2203,10 +2203,18 @@ sub listAttributes {
 
 	if ($nonkey && defined($$attributes{'trace_level'})) {
 		my $found = FALSE;
-		print "\n\tPossible trace levels (use trace_level=\"add <level>\", none, all or default to set):\n";
+		print "\n\tPossible trace levels:\n".
+		  "\t  (use trace_level=\"add <level>\", none, all or default to set):\n";
 
+		my $count = 0;
 		foreach my $entry (@{$$attributes{'trace_level'}->{'set'}}) {
-			print "\t\t$entry\n";
+			print "\t\t" if (!$count);
+			print "$entry, ";
+			$count++;
+			if ($count == 5) {
+				print "\n";
+				$count = 0;
+			}
 		}
 
 		print "\n";