Changeset 297 for trunk/ddt/ddt

Timestamp:

Jul 18, 2018, 12:36:37 PM (6 years ago)

Author:

g7moreau

Message:

• small error, better title and print only if values

File:

• trunk/ddt/ddt (modified) (2 diffs)

trunk/ddt/ddt

@@ -2270 +2270 @@
 
       my $tb_computer = Text::Table->new(
-         {align => 'left',   align_title => 'left',   title => 'Hostname.DomainSet'},
-         {align => 'left',   align_title => 'left',   title => 'IPv4-Address'},
-         {align => 'center', align_title => 'center', title => 'MAC-Address'},
-         {align => 'right',  align_title => 'right',  title => 'Type'},
-         {align => 'right',  align_title => 'right',  title => 'Status'},
-         {align => 'left',   align_title => 'left',   title => 'Date'},
-         {align => 'left',   align_title => 'left',   title => 'Comment'},
+         {align  => 'left',   align_title => 'left',   title => 'Hostname.DomainSet'},
+         {is_sep => 1,        body        => '  '},
+         {align  => 'left',   align_title => 'left',   title => 'IPv4-Address'},
+         {is_sep => 1,        body        => '  '},
+         {align  => 'center', align_title => 'center', title => 'MAC-Address'},
+         {is_sep => 1,        body        => '  '},
+         {align  => 'right',  align_title => 'right',  title => 'Type'},
+         {align  => 'right',  align_title => 'right',  title => 'Status'},
+         {is_sep => 1,        body        => '  '},
+         {align  => 'left',   align_title => 'left',   title => 'Date'},
+         {align  => 'left',   align_title => 'left',   title => 'Comment'},
          );
-
-      $tb_computer->add(
 
       #printf "%-30s  %-20s %17s %5s %7s %-10s %s\n",
@@ -2338 +2340 @@
          }
 
-      print "\n# *** List of pool computers in the domain set: $domainset_current ***\n";
-      print $tb_computer->title();
-      print $tb_computer->rule('-');
-      print $tb_computer->body();
+      if ($tb->body_height) {
+         print "\n# *** List of pool computers in the domain set: $domainset_current ***\n";
+         print $tb_computer->title();
+         print $tb_computer->rule('-');
+         print $tb_computer->body();
+         }
       }