ambiser
/
btrbk
mirror of https://github.com/digint/btrbk
9
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

btrbk: print_formatted(): honor use_header argument for all table formats

pull/88/head
Axel Burri 2016-04-15 21:42:38 +02:00
parent 9afe17f738
commit 1151d2c572
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
btrbk
View File

@ -3059,19 +3059,21 @@ sub print_formatted(@)
} }
# print keys (headings) # print keys (headings)
my $fill = 0; unless($args{no_header}) {
foreach (@$keys) { my $fill = 0;
print $fh ' ' x $fill; foreach (@$keys) {
$fill = $maxlen{$_} - length($_);
if($ralign->{$_}) {
print $fh ' ' x $fill; print $fh ' ' x $fill;
$fill = 0; $fill = $maxlen{$_} - length($_);
if($ralign->{$_}) {
print $fh ' ' x $fill;
$fill = 0;
}
print $fh $_;
$fill += $table_spacing;
} }
print $fh $_; print $fh "\n";
$fill += $table_spacing; print $fh join(' ' x $table_spacing, map { '-' x ($maxlen{$_}) } @$keys) . "\n";
} }
print $fh "\n";
print $fh join(' ' x $table_spacing, map { '-' x ($maxlen{$_}) } @$keys) . "\n";
# print values # print values
foreach my $row (@$data) { foreach my $row (@$data) {