~;
my $asth = $dbh->prepare("select transid,prospectid from trans_boardtranstoprospect where prospectid = '$INPUT{prospectid}'");
$asth->execute;
while (($transid,$prospectid) = $asth->fetchrow_array()) {
my $aasth = $dbh->prepare("select id,mlsnumber,addressnumber,addressdirection,addressstreet,city from trans_board where id = '$transid' GROUP BY mlsnumber ORDER BY addressstreet asc");
$aasth->execute;
while (($id,$mlsnumber,$addressnumber,$addressdirection,$addressstreet,$city) = $aasth->fetchrow_array()) {
print qq~
MLS \#$mlsnumber $addressnumber $addressdirection $addressstreet, $city
~;
$found = "yes";
}
}
unless ($found eq "yes") {
print qq~
Prospect not linked to listings yet!
~;
}
print qq~
~;
}
sub document_progress {
}
sub overview_prospect_convert {
if ($INPUT{do} eq "yes") {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
my $basth = $dbh->prepare("select id,agent,type,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,contacttype,initial_contactdate,last_contactdate,next_contactdate,source,notes from trans_boardprospect WHERE id = '$INPUT{prospectid}'");
$basth->execute;
while (($id,$agent,$type,$firstname,$lastname,$address,$spouse,$city,$state,$zip,$phone1type,$phone1number,$phone2type,$phone2number,$phone3type,$phone3number,$faxnumber,$email,$emailtwo,$contacttype,$initial_contactdate,$last_contactdate,$next_contactdate,$source,$notes) = $basth->fetchrow_array()) {
@variables = ($agent,$type,$firstname,$lastname,$address,$spouse,$city,$state,$zip,$phone1type,$phone1number,$phone2type,$phone2number,$phone3type,$phone3number,$faxnumber,$email,$emailtwo,$contacttype,$initial_contactdate,$last_contactdate,$next_contactdate,$source,$notes);
$sql_query = "INSERT INTO trans_boardcontact values ('',?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)";
my $aasth = $dbh->do($sql_query, undef, @variables);
my $zaasth = $dbh->prepare("select id from trans_boardcontact WHERE agent = '$INPUT{agent}' ORDER BY id DESC LIMIT 0,1");
$zaasth->execute;
while (($newcontactid) = $zaasth->fetchrow_array()) {
my $getnasth = $dbh->prepare("select noteid,prospectid,datetime,addedby,note from trans_boardprospectnotes WHERE prospectid = '$INPUT{prospectid}'");
$getnasth->execute;
while (($noteid,$prospectid,$datetime,$addedby,$note) = $getnasth->fetchrow_array()) {
@newnvariables = ($newcontactid,$datetime,$addedby,$note);
$newnsql_query = "INSERT INTO trans_boardcontactnotes values ('',?,?,?,?)";
my $newnasth = $dbh->do($newnsql_query, undef, @newnvariables);
}
my $getdasth = $dbh->prepare("select did from documents WHERE matchcat = 'p' AND matchid = '$INPUT{prospectid}'");
$getdasth->execute;
while (($did) = $getdasth->fetchrow_array()) {
@newdvariables = ($newcontactid);
$newdsql_query = "UPDATE documents set matchcat = 'c', matchid = ? WHERE did = '$did'";
my $newdasth = $dbh->do($newdsql_query, undef, @newdvariables);
}
$getcontactid = $newcontactid;
}
@delprospectvariables = ($INPUT{prospectid});
$delprospectsql_query = "DELETE FROM trans_boardprospect WHERE id = ?";
my $delprospectasth = $dbh->do($delprospectsql_query, undef, @delprospectvariables);
@delprospectnotesvariables = ($INPUT{prospectid});
$delprospectnotessql_query = "DELETE FROM trans_boardprospectnotes WHERE prospectid = ?";
my $delprospectnotesasth = $dbh->do($delprospectnotessql_query, undef, @delprospectnotesvariables);
@delprospectapvariables = ($INPUT{prospectid});
$delprospectapsql_query = "DELETE from trans_boardtask_triggers where idlink = ? and task_type = 'Prospect'";
my $delprospectapasth = $dbh->do($delprospectapsql_query, undef, @delprospectapvariables);
}
print qq~
Converting Prospect To Contact
Please wait, Processing Conversion
Converting Data
Converting Notes Information
Converting Documents
Deleting Prospect Data
Deleting Prospect Notes
Cleaning Up Prospect Documents
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
else {
print qq~
Convert Prospect To Contact -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
Really Convert Prospect $INPUT{name} to Contact?
are you sure you want to convert?
If you select yes the following information will be converted to a contact:
Converting Data
Converting Notes Information
Converting Documents
Deleting Prospect Data
Deleting Prospect Notes
Cleaning Up Prospect Documents
Remove Any Active Action Plans
~;
&footer;
}
}
sub overview_prospect_copy {
if ($INPUT{do} eq "yes") {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
my $basth = $dbh->prepare("select id,agent,type,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,contacttype,initial_contactdate,last_contactdate,next_contactdate,source,notes from trans_boardprospect WHERE id = '$INPUT{prospectid}'");
$basth->execute;
while (($id,$agent,$type,$firstname,$lastname,$address,$spouse,$city,$state,$zip,$phone1type,$phone1number,$phone2type,$phone2number,$phone3type,$phone3number,$faxnumber,$email,$emailtwo,$contacttype,$initial_contactdate,$last_contactdate,$next_contactdate,$source,$notes) = $basth->fetchrow_array()) {
@variables = ($agent,$type,$firstname,$lastname,$address,$spouse,$city,$state,$zip,$phone1type,$phone1number,$phone2type,$phone2number,$phone3type,$phone3number,$faxnumber,$email,$emailtwo,$contacttype,$initial_contactdate,$last_contactdate,$next_contactdate,$source,$notes);
$sql_query = "INSERT INTO trans_boardcontact values ('',?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)";
my $aasth = $dbh->do($sql_query, undef, @variables);
my $zaasth = $dbh->prepare("select id from trans_boardcontact WHERE agent = '$INPUT{agent}' ORDER BY id DESC LIMIT 0,1");
$zaasth->execute;
while (($newcontactid) = $zaasth->fetchrow_array()) {
my $getnasth = $dbh->prepare("select noteid,prospectid,datetime,addedby,note from trans_boardprospectnotes WHERE prospectid = '$INPUT{prospectid}'");
$getnasth->execute;
while (($noteid,$prospectid,$datetime,$addedby,$note) = $getnasth->fetchrow_array()) {
@newnvariables = ($newcontactid,$datetime,$addedby,$note);
$newnsql_query = "INSERT INTO trans_boardcontactnotes values ('',?,?,?,?)";
my $newnasth = $dbh->do($newnsql_query, undef, @newnvariables);
}
my $getdasth = $dbh->prepare("select did from documents WHERE matchcat = 'p' AND matchid = '$INPUT{prospectid}'");
$getdasth->execute;
while (($did) = $getdasth->fetchrow_array()) {
@newdvariables = ($newcontactid);
$newdsql_query = "UPDATE documents set matchcat = 'c', matchid = ? WHERE did = '$did'";
my $newdasth = $dbh->do($newdsql_query, undef, @newdvariables);
}
$getcontactid = $newcontactid;
}
}
print qq~
Copy Prospect To Contact
Please wait, Processing Conversion
Copying Data
Copying Notes Information
Converting Documents
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
else {
print qq~
Copy Prospect To Contact -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
Really Copy Prospect $INPUT{name} to Contact?
are you sure you want to convert?
If you select yes the following information will be converted to a contact:
Copying Data
Copying Notes Information
Converting Documents
~;
&footer;
}
}
sub overview_prospect_copyprospect {
if ($INPUT{do} eq "yes") {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
my $basth = $dbh->prepare("select id,agent,type,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,contacttype,initial_contactdate,last_contactdate,next_contactdate,source,notes from trans_boardprospect WHERE id = '$INPUT{prospectid}'");
$basth->execute;
while (($id,$agent,$type,$firstname,$lastname,$address,$spouse,$city,$state,$zip,$phone1type,$phone1number,$phone2type,$phone2number,$phone3type,$phone3number,$faxnumber,$email,$emailtwo,$contacttype,$initial_contactdate,$last_contactdate,$next_contactdate,$source,$notes) = $basth->fetchrow_array()) {
@variables = ($agent,'trans_sys',$firstname,$lastname,$address,$spouse,$city,$state,$zip,$phone1type,$phone1number,$phone2type,$phone2number,$phone3type,$phone3number,$faxnumber,$email,$emailtwo,$contacttype,$initial_contactdate,$last_contactdate,$next_contactdate,$source,$notes);
$sql_query = "INSERT INTO trans_boardprospect values ('',?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)";
my $aasth = $dbh->do($sql_query, undef, @variables);
my $zaasth = $dbh->prepare("select id from trans_boardprospect WHERE agent = '$INPUT{agent}' ORDER BY id DESC LIMIT 0,1");
$zaasth->execute;
while (($newprospectid) = $zaasth->fetchrow_array()) {
my $getnasth = $dbh->prepare("select noteid,prospectid,datetime,addedby,note from trans_boardprospectnotes WHERE prospectid = '$INPUT{prospectid}'");
$getnasth->execute;
while (($noteid,$prospectid,$datetime,$addedby,$note) = $getnasth->fetchrow_array()) {
@newnvariables = ($newprospectid,$datetime,$addedby,$note);
$newnsql_query = "INSERT INTO trans_boardprospectnotes values ('',?,?,?,?)";
my $newnasth = $dbh->do($newnsql_query, undef, @newnvariables);
}
my $getdasth = $dbh->prepare("select did from documents WHERE matchcat = 'p' AND matchid = '$INPUT{prospectid}'");
$getdasth->execute;
while (($did) = $getdasth->fetchrow_array()) {
@newdvariables = ($newprospectid);
$newdsql_query = "UPDATE documents set matchcat = 'p', matchid = ? WHERE did = '$did'";
my $newdasth = $dbh->do($newdsql_query, undef, @newdvariables);
}
$getprospectid = $newprospectid;
}
}
print qq~
Copy Prospect As New Prospect
Please wait, Processing Conversion
Copying Data
Copying Notes Information
Converting Documents
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
else {
print qq~
Copy Prospect As New Prospect -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
Really Copy Prospect $INPUT{name} to Contact?
are you sure you want to convert?
If you select yes the following information will be converted to a contact:
Copying Data
Copying Notes Information
Converting Documents
~;
&footer;
}
}
sub create_prospect {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
my $dateaasth = $dbh->prepare("select DATE_FORMAT(DATE_ADD(now(), INTERVAL 0 DAY), '%Y-%m-%d')");
$dateaasth->execute;
while (($newbackdate) = $dateaasth->fetchrow_array()) {
$findsdate = "$newbackdate";
}
print qq~
Create New prospect -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
fill out the form below to create a new prospect
~;
&footer;
}
sub create_prospect_verify {
#####id,agent,firstname,lastname,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
$fcontacttype = "$INPUT{contacttype}";
$fcontacttype =~ s/\,/ /gi;
print qq~
Verify New prospect -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
verify new prospect information
~;
&footer;
}
sub create_prospect_do {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
@variables = ($INPUT{agent},$INPUT{type},$INPUT{firstname},$INPUT{lastname},$INPUT{address},$INPUT{spouse},$INPUT{city},$INPUT{state},$INPUT{zip},$INPUT{phone1type},$INPUT{phone1number},$INPUT{phone2type},$INPUT{phone2number},$INPUT{phone3type},$INPUT{phone3number},$INPUT{faxnumber},$INPUT{email},$INPUT{emailtwo},$INPUT{contacttype},$INPUT{initial_contactdate},$INPUT{last_contactdate},$INPUT{next_contactdate},$INPUT{source},$INPUT{notes});
$sql_query = "INSERT INTO trans_boardprospect values ('',?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)";
my $aasth = $dbh->do($sql_query, undef, @variables);
my $zaasth = $dbh->prepare("select id from trans_boardprospect WHERE agent = '$INPUT{agent}' ORDER BY id DESC LIMIT 0,1");
$zaasth->execute;
while (($prospectid) = $zaasth->fetchrow_array()) {
print qq~
Making Changes to Datebase
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
sub overview_prospect_edit {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
my $aaasth = $dbh->prepare("select id,agent,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,contacttype,initial_contactdate,last_contactdate,next_contactdate,source,notes from trans_boardprospect WHERE id = '$INPUT{prospectid}'");
$aaasth->execute;
while (($id,$agent,$firstname,$lastname,$address,$spouse,$city,$state,$zip,$phone1type,$phone1number,$phone2type,$phone2number,$phone3type,$phone3number,$faxnumber,$email,$emailtwo,$contacttype,$initial_contactdate,$last_contactdate,$next_contactdate,$source,$notes) = $aaasth->fetchrow_array()) {
if ($initial_contactdate eq "0000-00-00") {
$initial_contactdate = "";
}
if ($last_contactdate eq "0000-00-00") {
$last_contactdate = "";
}
if ($next_contactdate eq "0000-00-00") {
$next_contactdate = "";
}
if ($zip eq "0") {
$zip = "";
}
(@db_contacttypes) = split(/\,/, $contacttype);
foreach $ctype (@db_contacttypes) {
$checked_ctypes{$ctype} = "checked";
}
$getstate = "";
$getstate .= "";
$getphone1type = "";
$getphone1type .= "";
$getphone2type = "";
$getphone2type .= "";
$getphone3type = "";
$getphone3type .= "";
$getemailtwo = "";
$getemailtwo .= "";
$get_source = "";
$get_source .= "";
print qq~
Edit prospect -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
Edit the information below to edit your prospect
~;
}
&footer;
}
sub overview_prospect_doedit {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
@variables = ($INPUT{firstname},$INPUT{lastname},$INPUT{address},$INPUT{spouse},$INPUT{city},$INPUT{state},$INPUT{zip},$INPUT{phone1type},$INPUT{phone1number},$INPUT{phone2type},$INPUT{phone2number},$INPUT{phone3type},$INPUT{phone3number},$INPUT{faxnumber},$INPUT{email},$INPUT{emailtwo},$INPUT{contacttype},$INPUT{initial_contactdate},$INPUT{last_contactdate},$INPUT{next_contactdate},$INPUT{source},$INPUT{notes},$INPUT{prospectid});
$sql_query = "update trans_boardprospect set firstname = ?, lastname = ?, address = ?, spouse = ?, city = ?, state = ?, zip = ?, phone1type = ?, phone1number = ?, phone2type = ?, phone2number = ?, phone3type = ?, phone3number = ?, faxnumber = ?, email = ?, emailtwo = ?, contacttype = ?, initial_contactdate = ?, last_contactdate = ?, next_contactdate = ?, source = ?, notes = ? where id = ?";
my $aasth = $dbh->do($sql_query, undef, @variables);
print qq~
Making Changes to Datebase
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
sub overview_prospect_delete {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
if ($INPUT{do} eq "yes") {
@cvariables = ($INPUT{prospectid});
$csql_query = "DELETE FROM trans_boardprospect WHERE id = ?";
my $caasth = $dbh->do($csql_query, undef, @cvariables);
@ncvariables = ($INPUT{prospectid});
$ncsql_query = "DELETE FROM trans_boardprospectnotes WHERE prospectid = ?";
my $ncaasth = $dbh->do($ncsql_query, undef, @ncvariables);
@variables = ($INPUT{prospectid});
$sql_query = "DELETE FROM trans_boardtranstoprospect WHERE prospectid = ?";
my $aasth = $dbh->do($sql_query, undef, @variables);
my $zaasth = $dbh->prepare("select did,newfileext from documents WHERE matchcat = 'p' AND matchid = '$INPUT{prospectid}'");
$zaasth->execute;
while (($pdid,$pnewfileext) = $zaasth->fetchrow_array()) {
unlink("/home/muncieml/public_html/connect/documents/$pdid.$pnewfileext");
}
@docvariables = ($INPUT{prospectid});
$docsql_query = "DELETE FROM documents WHERE matchcat = 'p' AND matchid = ?";
my $docasth = $dbh->do($docsql_query, undef, @docvariables);
print qq~
Making Changes to Datebase
Please wait, Processing
Removing Prospect Information
Removing Prospect Notes Information
Removing Prospect Links To Listings
Removing Prospect Documents
Removing Prospect Documents Information
You will be redirected to when finished. If not Click Here.
~;
}
else {
print qq~
Edit Transaction -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
Really Delete prospect $INPUT{name}?
are you sure you want to remove?
If you select yes the following information will be removed:
Remove Prospect Information
Remove Prospect Notes Information
Remove Prospect Links To Listings
Remove Prospect Documents
Remove Prospect Documents Information
~;
&footer;
}
}
sub overview_prospect {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
if ($INPUT{addnote} eq "1") {
my $usrdasth = $dbh->prepare("select firstname,lastname from users where userid = '$Cook{userid}'");
$usrdasth->execute;
while (($afirstname,$alastname) = $usrdasth->fetchrow_array()) {
$generateaddedby = "$afirstname $alastname";
}
@variables = ($INPUT{prospectid},$generateaddedby,$INPUT{prospect_notes});
$sql_query = "INSERT INTO trans_boardprospectnotes values ('',?,now(),?,?)";
my $zzaasth = $dbh->do($sql_query, undef, @variables);
if ($INPUT{todo} eq "yes") {
my $zzdasth = $dbh->prepare("select DATE_FORMAT(now(), '%Y-%m-%d')");
$zzdasth->execute;
while (($gnow) = $zzdasth->fetchrow_array()) {
$good_date = $gnow;
}
$prospect_notes = "Prospect note added to $INPUT{name} by $generateaddedby: ";
$prospect_notes .= "$INPUT{prospect_notes}";
@insert_vars = ($INPUT{agent},TransactionSystem,None,$good_date,$prospect_notes);
$tsql_query = "insert into todo values ('',?,?,?,?,?,'$INPUT{todo_mark}')";
$yasth = $dbh->do($tsql_query, undef, @insert_vars);
}
}
my $basth = $dbh->prepare("select id,agent,type,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,contacttype,DATE_FORMAT(initial_contactdate, '%b %D, %Y'),DATE_FORMAT(last_contactdate, '%b %D, %Y'),DATE_FORMAT(next_contactdate, '%b %D, %Y'),source,notes from trans_boardprospect WHERE id = '$INPUT{prospectid}'");
$basth->execute;
print qq~
My Prospect Overview -- Eagle Real Estate, Inc.
~;
&header;
print qq~
~;
}
&footer;
}
sub overview_prospects_smallaz {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
print qq~
prospects Small A-ZSEARCH USERS LASTNAME BY
~;
my $basth = $dbh->prepare("select id,agent,type,firstname,lastname from trans_boardprospect WHERE agent = '$INPUT{agent}' AND lastname LIKE '$INPUT{find}%' ORDER by lastname ASC");
$basth->execute;
while (($id,$agent,$type,$firstname,$lastname) = $basth->fetchrow_array()) {
print qq~
$id - $agent - $type - $firstname - $lastname
~;
}
print qq~
~;
}
sub overview_prospect_notes_show {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
my $basth = $dbh->prepare("select noteid,prospectid,DATE_FORMAT(datetime, '%b %D, %Y at %h\:%i%p'),addedby,note from trans_boardprospectnotes WHERE prospectid = '$INPUT{prospectid}' ORDER by datetime DESC");
$basth->execute;
print qq~
Notes
No Notes have been added yet! You may use the textbox to the right to save Notes.
~;
}
print qq~
~;
}
sub main {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
print qq~
My Eagle prospect Manager -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
~;
print qq~
use the alphabet below to search your prospects
~;
if ($INPUT{prospect}) {
my $basth = $dbh->prepare("select id,agent,type,firstname,lastname,spouse from trans_boardprospect WHERE agent = '$INPUT{agent}' AND lastname LIKE '$INPUT{prospect}%' ORDER by lastname ASC");
$basth->execute;
$trcount = "1";
$totalperrow = "3";
$rowcolor1 = "1";
$rowcolor2 = "2";
print qq~
~;
unless ($ccfound eq "yes") {
print qq~
No prospects Found, Click on the first letter in the alphabet above that corresponds with your prospects lastname to try another search. If your prospect is not listed you can create a new prospect by clicking on the link above.
~;
}
}
else {
print qq~
Click on the first letter in the alphabet above that corresponds with your prospects lastname to search your prospects.
~;
}
print qq~
Recently Added Prospects within the last 2 weeks
Date Added
Prospect Name
Category
~;
my $casth = $dbh->prepare("select id,firstname,spouse,lastname,contacttype,DATE_FORMAT(initial_contactdate, '%M %D, %Y') from trans_boardprospect WHERE agent = '$Cook{agentid}' AND initial_contactdate BETWEEN DATE_ADD(now(), INTERVAL -14 DAY) AND now() ORDER BY initial_contactdate DESC");
$casth->execute;
while (($id,$firstname,$spouse,$lastname,$contacttype,$initial_contactdate) = $casth->fetchrow_array()) {
print qq~
~;
$show_icon{doc} = qq~
~;
$show_icon{jpg} = qq~
~;
$show_icon{gif} = qq~
$firstname$spouse $lastname
Copy As New Contact
Edit prospect
