search for existing advertising sources before adding a new one

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 9211832..e86f399 100644 (file)
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -4468,6 +4468,7 @@ sub batch_import {
           my $referral = $columns[0];
           my %hash = ( 'referral' => $referral,
                        'agentnum' => $agentnum,
+                       'disabled' => '',
                      );
 
           my $part_referral = qsearchs('part_referral', \%hash )