From f19d97b2ab29f590b83d38764bf7d4f5206119be Mon Sep 17 00:00:00 2001
From: unknown <zak@balfor.local>
Date: Sat, 16 Mar 2002 16:18:49 -0700
Subject: [PATCH] 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
---
 BitKeeper/etc/logging_ok    | 1 +
 Docs/Support/colspec-fix.pl | 6 ++++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/BitKeeper/etc/logging_ok b/BitKeeper/etc/logging_ok
index 36c31361722..91fe1737b74 100644
--- a/BitKeeper/etc/logging_ok
+++ b/BitKeeper/etc/logging_ok
@@ -48,3 +48,4 @@ venu@work.mysql.com
 zak@linux.local
 jcole@mugatu.spaceapes.com
 arjen@fred.bitbike.com
+zak@balfor.local
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";