This commit was manufactured by cvs2svn to create tag 'SQL_LEDGER_2_4_4'.SQL_LEDGER_2_4_4

1 files changed, 0 insertions, 32 deletions

diff --git a/bin/sequences.reset b/bin/sequences.reset
deleted file mode 100644
index 2dc1d3bb2..000000000
--- a/bin/sequences.reset
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-use FS::UID qw(adminsuidsetup);
-use FS::Record qw(dbdef dbh);
-
-my $user = shift;
-adminsuidsetup $user or die;
-
-foreach my $table ( dbdef->tables ) {
-  my $primary_key = dbdef->table($table)->primary_key;
-  next unless $primary_key;
-  #my $local = dbdef->table($table)->column($primary_key)->local;
-  ##next unless $default =~ /nextval/;
-  #print "$local\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;
-  };
-  $sth->execute or do {
-    warn dbh->errstr. " executing $statement\n";
-    dbh->commit;
-    next;
-  }
-
-}
-