X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Ffix-sequences;h=2ff89d3e58299b75e52abe7cb8b14cd08da337af;hp=d5349ee74b0ee6f3213489b1af751482f6c8e71a;hb=e975ed0585280f4cbb90b02f57114dedc43f58be;hpb=cbf32a25fcfc38632d1262ad8261e679e1c9b7c5

diff --git a/bin/fix-sequences b/bin/fix-sequences
index d5349ee74..2ff89d3e5 100755
--- a/bin/fix-sequences
+++ b/bin/fix-sequences
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -Tw
 
+# run dbdef-create first!
+
 use strict;
 use DBI;
 use DBIx::DBSchema 0.21;
@@ -51,9 +53,9 @@ foreach my $table ( @tables ) {
 
 
   my $sql = "SELECT setval( '$seq',
-                            ( SELECT max($primary_key) FROM $table ) );" );
+                            ( SELECT max($primary_key) FROM $table ) );";
 
-  warn $col->default. " $seq\n$sql\n";
+  #warn $col->default. " $seq\n$sql\n";
   $dbh->do( $sql ) or die $dbh->errstr;
 
 }