[freeside-commits] freeside/bin move-customers,1.7,1.8

[Ivan,,,]

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

Modified Files:
	move-customers 
Log Message:
try, try again

Index: move-customers
===================================================================
RCS file: /home/cvs/cvsroot/freeside/bin/move-customers,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- move-customers	27 Aug 2009 10:23:12 -0000	1.7
+++ move-customers	27 Aug 2009 10:26:41 -0000	1.8
@@ -19,6 +19,7 @@
 use FS::svc_Common;
 use FS::cust_event;
 use FS::svc_domain;
+use FS::cust_pkg;
 
 my $DANGEROUS = 0;
 my $DRY = 0;
@@ -85,6 +86,8 @@
 $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 @@
 
   warn "importing customers for $src_agent\n";
 
-  my $agent = qsearchs('agent', { 'agent' => $src_agent } );
+  my $agent = qsearchs('agent', { 'agent' => $src_agent, 'disabled' => '' } );
 
   if ( $agent ) {