ViciDial/agc_2-X
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

updated AST_DEDUPE_leads.pl

Browse Source 
git-svn-id: svn://192.168.202.10@623 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2007-05-21 21:40:55 +00:00
parent 17a2fa3ee4
commit 39e22913ae
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/VICIDIAL_DEDUPE_leads.pl
+11 -3
View File
@@ -239,18 +239,23 @@ $b=0;
foreach(@dup_list)
{
$dup_limit = ($dup_count[$b] - 1);
$stmtA = "select lead_id,list_id,entry_date from vicidial_list where phone_number='$dup_list[$b]' $and $campSQL $listSQL order by entry_date desc limit $dup_limit;";
$stmtA = "select lead_id,list_id,entry_date from vicidial_list where phone_number='$dup_list[$b]' $and $campSQL $listSQL order by entry_date;";
if($DBX){print STDERR "\n|$stmtA|\n";}
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
$sthArows=$sthA->rows;
$rec_count=0;
open(out, ">>$VDHLOGfile") || die "Can't open $VDHLOGfile: $!\n";
print out "$dup_list[$b]|$dup_count[$b]\n";
print out "$dup_list[$b]|$dup_count[$b]|";
while ($sthArows > $rec_count)
{
@aryA = $sthA->fetchrow_array;
print out "$aryA[0]|$aryA[1]|$aryA[2]\n";
if ($rec_count<1) {print out "$aryA[0]|$aryA[1]|$aryA[2]\n";}
else
{
print out " $aryA[0]|$aryA[1]|$aryA[2]\n";
$DUP_updates .= "'$aryA[0]',";
}
$rec_count++;
}
close(out);
@@ -270,6 +275,9 @@ foreach(@dup_list)
if ($b =~ /000$/i) {print "|$b|$phone_number|\n";}
}
chop($DUP_updates);
if($DBX){print STDERR "\nDUP UPDATES|$DUP_updates|\n";}