This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9

1 files changed, 0 insertions, 20 deletions

diff --git a/bin/merge-referrals b/bin/merge-referrals
deleted file mode 100644
index e39f053e8..000000000
--- 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;