X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fmove-customers;h=a7ea19781c1ed96977c700f3fc591a08fb672908;hp=c78b6ac257c210924be1ff50146d5d9268c2a6f5;hb=a58af29105ebefb04c0abbcee6d392446fff9eb0;hpb=f407a661ea76f6cc7621e10a23ab32eb74ced115

diff --git a/bin/move-customers b/bin/move-customers
index c78b6ac25..a7ea19781 100755
--- a/bin/move-customers
+++ b/bin/move-customers
@@ -19,6 +19,7 @@ use FS::cust_bill_ApplicationCommon;
 use FS::svc_Common;
 use FS::cust_event;
 use FS::svc_domain;
+use FS::cust_pkg;
 
 my $DANGEROUS = 0;
 my $DRY = 0;
@@ -55,7 +56,7 @@ my %domsvc_map = (
 #  'DCHK' => [],
 #  'DCRD' => [],
 #  'COMP' => [],
-);
+#);
 #production
 my %eventparts = (
   'CARD' => [ 1, ],
@@ -64,7 +65,7 @@ my %eventparts = (
   'DCHK' => [ 12, ],
   'DCRD' => [ 15, ],
   'COMP' => [],
-)
+);
 
 #--
 
@@ -85,6 +86,8 @@ $FS::svc_Common::noexport_hack = 1;
 $FS::svc_Common::noexport_hack = 1;
 $FS::svc_domain::whois_hack = 1;
 $FS::svc_domain::whois_hack = 1;
+$FS::cust_pkg::disable_agentcheck = 1;
+$FS::cust_pkg::disable_agentcheck = 1;
 
 my $void_paynum = 2147483646; #top of int range
 
@@ -127,7 +130,7 @@ while ( my $agentrow = $agent_sth->fetchrow_hashref ) {
 
   warn "importing customers for $src_agent\n";
 
-  my $agent = qsearchs('agent', { 'agent' => $src_agent } );
+  my $agent = qsearchs('agent', { 'agent' => $src_agent, 'disabled' => '' } );
 
   if ( $agent ) {