X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fsequences.reset;h=2dc1d3bb2a123dee890765558cc29d1d7a2cf407;hp=f0fc4b7f2180f25be809970477268ef730ec5ad7;hb=aa2daf29c5bb13a3728b434159afc4065367af91;hpb=e43ee0863e66d8d3e3a4453690561638ed4a92dd 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;