projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix unlikely self-XSS from your own package def names
[freeside.git]
/
bin
/
fix-sequences
diff --git
a/bin/fix-sequences
b/bin/fix-sequences
index
d5349ee
..
dc4abd7
100755
(executable)
--- a/
bin/fix-sequences
+++ b/
bin/fix-sequences
@@
-1,8
+1,10
@@
#!/usr/bin/perl -Tw
#!/usr/bin/perl -Tw
+# run dbdef-create first!
+
use strict;
use DBI;
use strict;
use DBI;
-use DBIx::DBSchema 0.2
1
;
+use DBIx::DBSchema 0.2
6
;
use DBIx::DBSchema::Table;
use DBIx::DBSchema::Column;
use DBIx::DBSchema::ColGroup::Unique;
use DBIx::DBSchema::Table;
use DBIx::DBSchema::Column;
use DBIx::DBSchema::ColGroup::Unique;
@@
-51,9
+53,9
@@
foreach my $table ( @tables ) {
my $sql = "SELECT setval( '$seq',
my $sql = "SELECT setval( '$seq',
- ( SELECT max($primary_key) FROM $table ) );"
)
;
+ ( SELECT max($primary_key) FROM $table ) );";
- warn $col->default. " $seq\n$sql\n";
+
#
warn $col->default. " $seq\n$sql\n";
$dbh->do( $sql ) or die $dbh->errstr;
}
$dbh->do( $sql ) or die $dbh->errstr;
}