summaryrefslogtreecommitdiff
path: root/bin/sequences.reset
diff options
context:
space:
mode:
authorivan <ivan>2004-05-12 18:07:41 +0000
committerivan <ivan>2004-05-12 18:07:41 +0000
commitaa2daf29c5bb13a3728b434159afc4065367af91 (patch)
tree79a1a3b318537f3a8dcc5c9900621d666049cc5c /bin/sequences.reset
parente43ee0863e66d8d3e3a4453690561638ed4a92dd (diff)
easier this way
Diffstat (limited to 'bin/sequences.reset')
-rw-r--r--bin/sequences.reset6
1 files changed, 5 insertions, 1 deletions
diff --git a/bin/sequences.reset b/bin/sequences.reset
index f0fc4b7..2dc1d3b 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;