easier this way
[freeside.git] / bin / sequences.reset
index f0fc4b7..2dc1d3b 100644 (file)
@@ -13,7 +13,11 @@ foreach my $table ( dbdef->tables ) {
   ##next unless $default =~ /nextval/;
   #print "$local\n";
 
   ##next unless $default =~ /nextval/;
   #print "$local\n";
 
-  my $statement = "select setval('${table}_${primary_key}_seq', ( select max($primary_key) from $table ) )\n";
+  my $statement = "select setval('${table}_${primary_key}_seq', ( select max($primary_key) from $table ) )";
+
+  print "$statement;\n";
+  next;
+  
   my $sth = dbh->prepare($statement) or do {
     warn dbh->errstr. " preparing $statement\n";
     next;
   my $sth = dbh->prepare($statement) or do {
     warn dbh->errstr. " preparing $statement\n";
     next;