add per-agent invoice templates, add per-package suspend invoice events, fix automati...

[freeside.git] / bin / fix-sequences

diff --git a/bin/fix-sequences b/bin/fix-sequences
index 70b6df6..2ff89d3 100755 (executable)
--- 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;
@@ -53,7 +55,7 @@ foreach my $table ( @tables ) {
   my $sql = "SELECT setval( '$seq',
                             ( 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;
 
 }