diff options
| author | ivan <ivan> | 2009-08-27 10:26:41 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-08-27 10:26:41 +0000 |
| commit | 524540eab151b455d661b2cc2adf71e38f5ca6eb (patch) | |
| tree | bbfb9631dc7447612f043a802ce762505c77d18f /bin/move-customers | |
| parent | 55332cb444a9d80e168737e5132c458f1cc44450 (diff) | |
try, try again
Diffstat (limited to 'bin/move-customers')
| -rwxr-xr-x | bin/move-customers | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/bin/move-customers b/bin/move-customers index d237d1237..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; @@ -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 ) { |