#!/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);
}