X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=bibliofile%2Fparse_dbd.pl;fp=bibliofile%2Fparse_dbd.pl;h=f72347c48e5c803599ca6bb77b71814480c7b5a1;hp=0a16c3a3f271c9f5a247b64d8ecf421cbbc3966c;hb=500f5ae6ff4d8e363f78f8727611f0a54d84c649;hpb=6983901219f458f006debdebb83e480d81dde8b4

diff --git a/bibliofile/parse_dbd.pl b/bibliofile/parse_dbd.pl
index 0a16c3a..f72347c 100755
--- a/bibliofile/parse_dbd.pl
+++ b/bibliofile/parse_dbd.pl
@@ -38,7 +38,7 @@ while (<>) {
   for (my $i = 1; $i <= $numcolumns; $i++) {
     my $coltype = substr($dbd, 7*($i-1)+$startOfColumnTypes, 1);
     my $collength = ord substr($dbd, 7*($i-1)+$startOfColumnTypes+1, 1);
-    printf ("Column %02d: %-8s %s (%d chars)\n", $i, $coltypes{$coltype}, $col[$i-1], $collength);
+    printf ("Column %0" . length($numcolumns) . "d: %-8s %s (%d chars)\n", $i, $coltypes{$coltype}, $col[$i-1], $collength);
   }
 
 }