From a8e4b1744a6bbd2e1509b58e73b1d52751563880 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 20 Oct 2010 02:07:02 +0000
Subject: customer merging, RT#10247

---
 bin/merge-referrals | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 bin/merge-referrals

(limited to 'bin/merge-referrals')

diff --git a/bin/merge-referrals b/bin/merge-referrals
new file mode 100644
index 0000000..ba07a81
--- /dev/null
+++ b/bin/merge-referrals
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use FS::UID qw(adminsuidsetup);
+use FS::Record qw(qsearchs);
+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;
-- 
cgit v1.1