diff options
Diffstat (limited to 'util/updates/update_1.1.pl')
-rwxr-xr-x | util/updates/update_1.1.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/util/updates/update_1.1.pl b/util/updates/update_1.1.pl new file mode 100755 index 00000000..c01e6625 --- /dev/null +++ b/util/updates/update_1.1.pl @@ -0,0 +1,18 @@ +#!/usr/bin/perl + +use strict; +use warnings; +use DBI; + +require '../lib/global.pl'; + +my $sql = DBI->connect('dbi:Pg:dbname=vndb', 'vndb', 'passwd', + { RaiseError => 1, PrintError => 0, AutoCommit => 1, pg_enable_utf8 => 1 }); + +my $q = $sql->prepare('SELECT id, rel_old, language FROM vnr'); $q->execute; +for (@{$q->fetchall_arrayref({})}) { + my $rel = sprintf !$_->{rel_old} ? 'Original release' : + $_->{rel_old} == 1 ? '%s translation' : '%s rerelease', $VNDB::LANG->{$_->{language}}; + $sql->do('UPDATE vnr SET relation = ? WHERE id = ?', undef, $rel, $_->{id}); +} +$sql->do('ALTER TABLE vnr DROP COLUMN rel_old'); |