1 files changed, 0 insertions, 20 deletions
diff --git a/bin/merge-referrals b/bin/merge-referrals
deleted file mode 100644
index e39f053..0000000
--- a/bin/merge-referrals
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use FS::UID qw(adminsuidsetup);
-use FS::Record qw(qsearch);
-use FS::cust_main;
-
-my $user = shift or die "usage: merge-customers username custnum\n";
-adminsuidsetup $user;
-
-my $custnum = shift or die "usage: merge-customers username custnum\n";
-
-foreach my $cust_main (
-  qsearch('cust_main', { 'referral_custnum' => $custnum })
-) {
-  my $error = $cust_main->merge($custnum);
-  die $error if $error;
-}
-
-1;