Commit 2b400a5a authored by unknown's avatar unknown

Append "cm" measurement unit specifier to colwidth field.

parent 16e40c29
...@@ -4,6 +4,8 @@ ...@@ -4,6 +4,8 @@
# Script to rewrite colspecs from relative values to absolute values # Script to rewrite colspecs from relative values to absolute values
# #
# arjen 2002-03-14 append "cm" specifier to colwidth field.
use strict; use strict;
my $table_width = 12.75; # cm my $table_width = 12.75; # cm
...@@ -43,7 +45,7 @@ sub rel2abs { ...@@ -43,7 +45,7 @@ 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) .'" />' . "\n"; $output .= $ws . '<colspec colwidth="'. sprintf ("%0.2f", $_ * $unit) .'cm" />' . "\n";
} }
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