X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fgenerate-table-module;h=509feeded93a763ce33780f315410ddd8cb7a12f;hb=7bc780834a604a2e678d028f875fd4b546412cfb;hp=fcc3f1d1fdb94fa31964e9c40194608769947d8a;hpb=673b9a458d9138523026963df6fa3b4683e09bae;p=freeside.git

diff --git a/bin/generate-table-module b/bin/generate-table-module
index fcc3f1d1f..509feeded 100755
--- a/bin/generate-table-module
+++ b/bin/generate-table-module
@@ -13,6 +13,7 @@ my %ut = ( #just guesses
   'number'  => 'float',
   'varchar' => 'text',
   'text'    => 'text',
+  'serial'  => 'number',
 );
 
 my $dbdef_table = dbdef_dist->table($table)
@@ -30,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;