Commit f19d97b2 authored by unknown's avatar unknown

Minor changes to allow colspec numbering


Docs/Support/colspec-fix.pl:
  Added code snippet to handle colspec numbering
BitKeeper/etc/logging_ok:
  Logging to logging@openlogging.org accepted
parent e8cc8462
...@@ -48,3 +48,4 @@ venu@work.mysql.com ...@@ -48,3 +48,4 @@ venu@work.mysql.com
zak@linux.local zak@linux.local
jcole@mugatu.spaceapes.com jcole@mugatu.spaceapes.com
arjen@fred.bitbike.com arjen@fred.bitbike.com
zak@balfor.local
...@@ -29,7 +29,8 @@ sub msg { ...@@ -29,7 +29,8 @@ sub msg {
sub rel2abs { sub rel2abs {
my $str = shift; my $str = shift;
my $colnum = 1;
my @widths = (); my @widths = ();
my $total = 0; my $total = 0;
my $output = ''; my $output = '';
...@@ -45,7 +46,8 @@ sub rel2abs { ...@@ -45,7 +46,8 @@ sub rel2abs {
my $unit = ($table_width - ($#widths * $gutter_width)) / ($total); my $unit = ($table_width - ($#widths * $gutter_width)) / ($total);
foreach (@widths) { foreach (@widths) {
$output .= $ws . '<colspec colwidth="'. sprintf ("%0.2f", $_ * $unit) .'cm" />' . "\n"; $output .= $ws . '<colspec colnum="'. $colnum .'" colwidth="'. sprintf ("%0.2f", $_ * $unit) .'cm" />' . "\n";
++$colnum;
} }
return $output . "\n$ws"; return $output . "\n$ws";
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment