bin/one-off-update-duplicates


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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);
}