diff options
Diffstat (limited to 'bin/generate-table-module')
-rwxr-xr-x | bin/generate-table-module | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/bin/generate-table-module b/bin/generate-table-module index b3204fa06..509feeded 100755 --- a/bin/generate-table-module +++ b/bin/generate-table-module @@ -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; |