fix this to generate more wiki-friendly column list
authorivan <ivan>
Tue, 19 Feb 2008 09:10:13 +0000 (09:10 +0000)
committerivan <ivan>
Tue, 19 Feb 2008 09:10:13 +0000 (09:10 +0000)
bin/generate-table-module

index b3204fa..509feed 100755 (executable)
@@ -31,10 +31,12 @@ while (my $line = <SRC>) {
   if ( $line =~ /^=item\s+field\s+-\s+description\s*$/ ) {
 
     foreach my $column ( $dbdef_table->columns ) {
-      print DEST "=item $column - ";
-      print DEST "primary key"
-        if $column eq $primary_key;
-      print DEST "\n\n";
+      print DEST "=item $column\n\n";
+      if ( $column eq $primary_key ) {
+        print DEST "primary key\n\n";
+      } else {
+        print DEST "$column\n\n";
+      }
     }
     next;