diff --git a/modules/util/Util/Matrix.pm b/modules/util/Util/Matrix.pm
index 18d9969a71b2a571ba578d7336983fa6a2a7c054..eb06331a676f76f841fdd32adaad9a60e9081c14 100644
--- a/modules/util/Util/Matrix.pm
+++ b/modules/util/Util/Matrix.pm
@@ -1,4 +1,6 @@
 #
+
+Util::Matrix::set_border_style ('Redmine');
 # $Id: Matrix.pm,v 1.12 2017/03/26 05:35:49 gonter Exp $
 #
 
@@ -7,12 +9,13 @@ package Util::Matrix;
 my $VERSION= 0.03;
 
 # formatted matrix output
-my $border_left= '| ';
-my $border_inter= ' | ';
-my $border_right= ' |';
+my $border_left=   my $header_left=   '| ';
+my $border_inter=  my $header_inter= ' | ';
+my $border_right=  my $header_right= ' |';
 my $border_lx= '+';
 my $border_rx= '-+';
 my $border_lines= 1;
+my $border_header= 1;
 
 my $header_style= 'default';
 
@@ -52,17 +55,17 @@ sub print
 
     print $fh $hl, "\n" if ($border_lines);
 
-    print $fh $border_left if ($border_left);
+    print $fh $header_left if ($header_left);
     foreach my $n (@$column_names)
     {
-      print $fh $border_inter if ($i);
+      print $fh $header_inter if ($i);
       printf $fh ($fmt_l[$i], $n);
       $i++;
     }
-    print $fh $border_right if ($border_right);
+    print $fh $header_right if ($header_right);
 
     print $fh "\n";
-    print $fh $hl, "\n" if ($border_lines);
+    print $fh $hl, "\n" if ($border_header);
   }
 
   foreach my $row (@$d)
@@ -106,32 +109,52 @@ sub print_hash
   Util::Matrix::print ($column_names, \@d, $fh);
 }
 
+sub set_border_none
+{
+  $header_left= $header_inter= $header_right=
+  $border_left= $border_inter= $border_right= $border_lx= $border_rx= '';
+  $border_lines= $border_header= 0;
+}
+
 sub set_border_style
 {
   my $style= shift;
 
-  if ($style eq 'none')
-  {
-    $border_left= $border_inter= $border_right= $border_lx= $border_rx= '';
-    $border_lines= 0;
-  }
+  if ($style eq 'none') { set_border_none(); }
   elsif ($style eq 'minimal' || $style eq '')
   {
-    $border_left= '';
+    set_border_none();
     $border_inter= ' ';
-    $border_right= '';
-    $border_lx= '';
-    $border_rx= '';
-    $border_lines= 0;
   }
-  else
+  elsif ($style eq 'Redmine')
   { # or $style eq 'default'
-    $border_left= '| ';
+    $header_left=   '|_. ';
+    $header_inter= ' |_. ';
+    $header_right= ' |';
+    $border_left=   '| ';
     $border_inter= ' | ';
     $border_right= ' |';
+    $border_lx= $border_rx= '';
+    $border_lines= $border_header= 0;
+  }
+  elsif ($style eq 'Gnome')
+  { 
+    $header_left=  $border_left=   '| ';
+    $header_inter= $border_inter= ' | ';
+    $header_right= $border_right= ' |';
+    $border_lx= '|:';
+    $border_rx= '-|';
+    $border_lines= 0;
+    $border_header= 1;
+  }
+  else
+  { # or $style eq 'default' or 'matrix'
+    $header_left=  $border_left=   '| ';
+    $header_inter= $border_inter= ' | ';
+    $header_right= $border_right= ' |';
     $border_lx= '+';
     $border_rx= '-+';
-    $border_lines= 1;
+    $border_lines= $border_header= 1;
   }
 }
 
diff --git a/modules/util/Util/MongoDB.pm b/modules/util/Util/MongoDB.pm
index 522aa596c8c279f8235aae8488e75bc8cafd70f4..3a09572562f6bf2790bf160875d7d4f63ffa1a4b 100644
--- a/modules/util/Util/MongoDB.pm
+++ b/modules/util/Util/MongoDB.pm
@@ -66,7 +66,7 @@ sub attach
 
   return $mdb unless (defined ($col_name));
 
-  my $col= $mdb->get_collection ($col_name);
+  $col= $mdb->get_collection ($col_name);
 
   if (defined ($col))
   {
diff --git a/modules/util/csv.pl b/modules/util/csv.pl
index 78af845158ff283e62534bae018fc2c89aa6e89c..52201f2d04340dea6ecfd429981bb7a58a4344e5 100755
--- a/modules/util/csv.pl
+++ b/modules/util/csv.pl
@@ -147,6 +147,9 @@ while (defined (my $arg= shift (@ARGV)))
       elsif ($opt eq 'a') { $all= 1; }
       elsif ($opt eq 'x') { $view= 'extended'; }
       elsif ($opt eq 'J') { $view= 'json'; }
+      elsif ($opt eq 'M') { $view= 'matrix'; }
+      elsif ($opt eq 'R') { $view= 'Redmine'; }
+      elsif ($opt eq 'G') { $view= 'Gnome'; }
       elsif ($opt eq 'D') { $view= 'dumper'; }
       elsif ($opt eq '8') { set_utf8(); }
       elsif ($opt eq '9') { $CSV_SEP= "\t"; }
@@ -298,7 +301,7 @@ if (@sort_columns)
 }
 
 my $d;
-if ($view eq 'matrix')
+if ($view eq 'matrix' || $view eq 'Redmine' || $view eq 'Gnome')
 {
   if ($out_file)
   {
@@ -309,6 +312,7 @@ if ($view eq 'matrix')
   }
   else
   {
+    Util::Matrix::set_border_style ($view);
     $csv->matrix_view(\@columns);
   }
 }