Minor changes to allow colspec numbering

1 files changed, 4 insertions, 2 deletions

diff --git a/Docs/Support/colspec-fix.pl b/Docs/Support/colspec-fix.pl
index 21abb90fef9..64269fdbe3a 100755
--- a/Docs/Support/colspec-fix.pl
+++ b/Docs/Support/colspec-fix.pl
@@ -29,7 +29,8 @@ sub msg {
 
 sub rel2abs {
     my $str = shift;
-
+    my $colnum = 1;
+    
     my @widths = ();
     my $total  = 0;
     my $output = '';
@@ -45,7 +46,8 @@ sub rel2abs {
     my $unit = ($table_width - ($#widths * $gutter_width)) / ($total);
 
     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";