--- /dev/null
+#!/usr/bin/perl
+
+use FS::UID qw(adminsuidsetup);
+use FS::Record qw(qsearch);
+use FS::rate_prefix;
+
+adminsuidsetup shift;
+
+#select * from rate_prefix where 1 < ( select count(*) from rate_prefix as other where rate_prefix.countrycode = other.countrycode and ( rate_prefix.npa = other.npa or ( rate_prefix.npa is null and other.npa is null ) ) ) order by countrycode, npa;
+
+foreach my $dup (
+ qsearch({
+ 'select' => 'DISTINCT ON ( countrycode, npa ) *',
+ 'table' => 'rate_prefix',
+ 'extra_sql' => ' where 1 < ( select count(*) from rate_prefix as other where rate_prefix.countrycode = other.countrycode and ( rate_prefix.npa = other.npa or ( rate_prefix.npa is null and other.npa is null ) ) )',
+ })
+
+) {
+
+ my @all = qsearch('rate_prefix', { map { $_=>$dup->$_() } qw( countrycode npa ) } );
+
+ my $first = shift(@all);
+
+ foreach my $extra (@all) {
+
+
+
+ }
+
+}