From f26658d1aa536ba0c5a60e8a8d22781ba2be682a Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 21 Aug 2006 17:46:44 +0000
Subject: [PATCH] search for existing advertising sources before adding a new
 one

---
 FS/FS/cust_main.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 921183216..e86f39951 100644
--- 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 )
-- 
2.20.1