diff options
Diffstat (limited to 'bin/merge-referrals')
-rw-r--r-- | bin/merge-referrals | 20 |
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; |