Merge branch 'duplicate-reverse'

1 files changed, 20 insertions, 0 deletions

diff --git a/bin/one-off-update-duplicates b/bin/one-off-update-duplicates
new file mode 100755
index 000000000..7bbf0251f
--- /dev/null
+++ b/bin/one-off-update-duplicates
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+BEGIN {
+    use File::Basename qw(dirname);
+    use File::Spec;
+    my $d = dirname(File::Spec->rel2abs($0));
+    require "$d/../setenv.pl";
+}
+
+use FixMyStreet::DB;
+
+my $rs = FixMyStreet::DB->resultset("Problem")->search({ extra => => { like => "%duplicate_of%" } });
+while (my $row = $rs->next) {
+    my $duplicate_of = $row->get_extra_metadata('duplicate_of');
+    next unless $duplicate_of;
+    $row->set_duplicate_of($duplicate_of);
+}