From aa2daf29c5bb13a3728b434159afc4065367af91 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 12 May 2004 18:07:41 +0000
Subject: [PATCH 1/1] easier this way

---
 bin/sequences.reset | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/bin/sequences.reset b/bin/sequences.reset
index f0fc4b7f2..2dc1d3bb2 100644
--- a/bin/sequences.reset
+++ b/bin/sequences.reset
@@ -13,7 +13,11 @@ foreach my $table ( dbdef->tables ) {
   ##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;
-- 
2.11.0