Agent Assigned
~;
my $iasth = $dbh->prepare("select agentid,mlsid,firstname,lastname,image,title,phone2name,phone2number from agents where mlsid = '$agent' order by lastname desc LIMIT 0,1");
$iasth->execute;
while (($agentid,$mlsid,$firstname,$lastname,$image,$title,$phone2name,$phone2number) = $iasth->fetchrow_array()) {
print qq~
$firstname $lastname
~;
}
print qq~
Referal Source $source
Listing(s) Prospect Inquired About
Prospect Note(s)
~;
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~
Not linked to any listings!
~;
}
print qq~
$notes ~;
my $cbasth = $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");
$cbasth->execute;
while (($noteid,$nprospectid,$datetime,$addedby,$tnote) = $cbasth->fetchrow_array()) {
print qq~
$tnote $datetime added by $addedby |
~;
$notes_found = "yes";
}
unless ($notes_found eq "yes") {
print qq~
No Notes Added!
~;
}
print qq~
Agent Comments:
~;
}
}
sub overview_prospects_linked {
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 "delete") {
@cvariables = ($INPUT{prospectid},$INPUT{transid});
$csql_query = "DELETE FROM trans_boardtranstoprospect WHERE prospectid = ? AND transid = ?";
my $caasth = $dbh->do($csql_query, undef, @cvariables);
}
if ($INPUT{do} eq "add") {
@variables = ($INPUT{transid},$INPUT{prospectid});
$sql_query = "INSERT INTO trans_boardtranstoprospect values (?,?)";
my $zzaasth = $dbh->do($sql_query, undef, @variables);
}
print qq~
Currently linked to the following listing(s)
~;
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,addressnumber,addressdirection,addressstreet,city from trans_board where id = '$transid' GROUP BY mlsnumber ORDER BY addressstreet asc");
$aasth->execute;
while (($id,$addressnumber,$addressdirection,$addressstreet,$city) = $aasth->fetchrow_array()) {
print qq~
$addressnumber $addressdirection $addressstreet,$city
~;
$found = "yes";
}
}
unless ($found eq "yes") {
print qq~
Prospect not linked to listings yet!
~;
}
print qq~
~;
}
sub upload_document {
if ($INPUT{cat} eq "c") {
$upload_for = "contact";
}
elsif ($INPUT{cat} eq "p") {
$upload_for = "prospect";
}
else {
$upload_for = "Transaction";
}
print qq~Upload New $upload_for Document
~;
}
sub overview_documents_prospect {
$show_icon{pdf} = qq~~;
$show_icon{doc} = qq~~;
$show_icon{jpg} = qq~~;
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 * from documents where matchid = '$INPUT{prospectid}' and matchcat = 'p' ORDER BY dateadded DESC");
$basth->execute;
while ($data_ref = $basth->fetchrow_hashref()) {
%documents = %$data_ref;
$doc_ext = $documents{newfileext};
$show_docs .= qq~ $show_icon{$doc_ext} $documents{name} Added $documents{dateadded} ~;
$found = "yes";
}
print qq~
Transaction Report -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
unless ($found eq "yes") {
print qq~
No Documents have been uploaded yet!
~;
}
else {
print qq~
$show_docs
~;
}
print qq~
~;
}
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 Prospect -- 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. - Connect.EagleSold.com
~;
&header;
print qq~
Initial Contact Date $initial_contactdate Last Contact Date $last_contactdate Next Contact Date $next_contactdate
Referal Source $source
Contact Type(s)
$contacttype
Notes
$notes
Listing Property Is Linked To
Find Property Below
Select Address
My Prospect Notes
View Notes Below
Document Center
View or Upload Documents
~;
}
&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 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 type = 'office' 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
~;
my $casth = $dbh->prepare("select id,firstname,spouse,lastname,DATE_FORMAT(initial_contactdate, '%M %D, %Y') from trans_boardprospect WHERE type = 'office' AND initial_contactdate BETWEEN DATE_ADD(now(), INTERVAL -14 DAY) AND now() ORDER BY initial_contactdate DESC");
$casth->execute;
while (($id,$firstname,$spouse,$lastname,$initial_contactdate) = $casth->fetchrow_array()) {
print qq~
$initial_contactdate - $firstname $spouse $lastname
~;
$found = "yes";
}
unless ($found eq "yes") {
print qq~No Prospects Have Saved Next Contact Dates Yet!~;
}
print qq~
~;
&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{last_contactdate},$INPUT{next_contactdate},$INPUT{source},$INPUT{notes});
$sql_query = "INSERT INTO trans_boardprospect values ('',?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,now(),?,?,?,?)";
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 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 $casth = $dbh->prepare("select mlsid,firstname,lastname from agents ORDER BY lastname ASC");
$casth->execute;
while (($mlsid,$firstname,$lastname) = $casth->fetchrow_array()) {
$printagents .= "";
}
print qq~
Create New Prospect -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
$addressnumber $addressdirection $addressstreet,$city
~;
$show_icon{doc} = qq~
~;
$show_icon{jpg} = qq~
~;
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 * from documents where matchid = '$INPUT{prospectid}' and matchcat = 'p' ORDER BY dateadded DESC");
$basth->execute;
while ($data_ref = $basth->fetchrow_hashref()) {
%documents = %$data_ref;
$doc_ext = $documents{newfileext};
$show_docs .= qq~ $show_icon{$doc_ext} $documents{name}
$firstname$spouse $lastname
Edit prospect