[freeside-commits] freeside/bin merge-referrals,NONE,1.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail.420.am:/tmp/cvs-serv8653/bin

Added Files:
	merge-referrals 
Log Message:
customer merging, RT#10247

--- NEW FILE: merge-referrals ---
#!/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;