fixed bug in web lead loader perl scripts, bug 140

git-svn-id: svn://192.168.202.10@704 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2007-11-01 06:17:35 +00:00
parent cff2f295de
commit 166491ddd6
2 changed files with 2 additions and 2 deletions
+1 -1
View File
@@ -276,7 +276,7 @@ foreach $oWkS (@{$oBook->{Worksheet}}) {
if ($dupcheck > 0)
{
$dup_lead=0;
$stmtA = "select llst_id from vicidial_list where phone_number='$phone_number' and list_id='$list_id' limit 1;";
$stmtA = "select list_id from vicidial_list where phone_number='$phone_number' and list_id='$list_id' limit 1;";
if($DBX){print STDERR "\n|$stmtA|\n";}
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
+1 -1
View File
@@ -278,7 +278,7 @@ foreach $oWkS (@{$oBook->{Worksheet}}) {
if ($dupcheck > 0)
{
$dup_lead=0;
$stmtA = "select llst_id from vicidial_list where phone_number='$phone_number' and list_id='$list_id' limit 1;";
$stmtA = "select list_id from vicidial_list where phone_number='$phone_number' and list_id='$list_id' limit 1;";
if($DBX){print STDERR "\n|$stmtA|\n";}
$sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
$sthA->execute or die "executing: $stmtA ", $dbhA->errstr;