X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Ffix-sequences;h=dc4abd7513cbf7eca6c471f0fce948a95bb706d2;hp=1ef7bd6544e8cd57625c90ad47009c6b5612adb2;hb=1f2021c9b76da7cc59e2a981fbac6b24312876d2;hpb=982fa001e4f9fdc6c544b43d7c21143facc8823d

diff --git a/bin/fix-sequences b/bin/fix-sequences
index 1ef7bd654..dc4abd751 100755
--- a/bin/fix-sequences
+++ b/bin/fix-sequences
@@ -4,7 +4,7 @@
 
 use strict;
 use DBI;
-use DBIx::DBSchema 0.21;
+use DBIx::DBSchema 0.26;
 use DBIx::DBSchema::Table;
 use DBIx::DBSchema::Column;
 use DBIx::DBSchema::ColGroup::Unique;
@@ -55,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;
 
 }