diff options
author | ivan <ivan> | 2004-05-12 18:07:41 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-05-12 18:07:41 +0000 |
commit | aa2daf29c5bb13a3728b434159afc4065367af91 (patch) | |
tree | 79a1a3b318537f3a8dcc5c9900621d666049cc5c /bin | |
parent | e43ee0863e66d8d3e3a4453690561638ed4a92dd (diff) |
easier this way
Diffstat (limited to 'bin')
-rw-r--r-- | bin/sequences.reset | 6 |
1 files changed, 5 insertions, 1 deletions
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; |