~;
&footer;
}
sub create_contact_verify {
#####id,agent,firstname,lastname,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,email_block,notes
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 Contact -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
verify new contact information
~;
&footer;
}
sub create_contact_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_boardcontact values ('',?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)";
my $aasth = $dbh->do($sql_query, undef, @variables);
if ($INPUT{transid} ne "") {
my $zaasth = $dbh->prepare("select id from trans_boardcontact WHERE agent = '$INPUT{agent}' ORDER BY id DESC LIMIT 0,1");
$zaasth->execute;
while (($contactid) = $zaasth->fetchrow_array()) {
@variables = ($INPUT{transid},$contactid,$INPUT{contact_type});
$sql_query = "INSERT INTO trans_boardtranstocontact values (?,?,?)";
my $zzaasth = $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.
~;
}
}
unless ($INPUT{transid}) {
print qq~
Making Changes to Datebase
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
}
sub upload_document {
if ($INPUT{cat} eq "c") {
$upload_for = "Contact";
}
else {
$upload_for = "Transaction";
}
print qq~Upload New $upload_for Document
~;
}
sub overview_documents_contact {
$show_icon{pdf} = qq~~;
$show_icon{doc} = qq~~;
$show_icon{jpg} = qq~~;
$show_icon{gif} = 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;
print qq~
Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
$trcolor = "1";
$trcolor2 = "2";
my $basth = $dbh->prepare("select did,DATE_FORMAT(dateadded, '%b %D, %Y at %h\:%i%p'),addedbyname,name,newfileext from documents where matchid = '$INPUT{contactid}' and matchcat = 'c' ORDER BY dateadded DESC");
$basth->execute;
while (($d_did,$d_dateadded,$d_addedbyname,$d_name,$d_newfileext) = $basth->fetchrow_array()) {
if ($trcolor eq $trcolor2) {
$trcolor = "1";
$setcolor = "#FFFFFF";
}
else {
$setcolor = "#CCCCFF";
$trcolor++;
}
print qq~
~;
}
sub overview_contact_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_boardcontact WHERE id = '$INPUT{contactid}'");
$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 .= "";
$get_source = "";
$get_source .= "";
print qq~
Edit Contact -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
Edit the information below to edit your contact
~;
}
&footer;
}
sub overview_contact_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{contactid});
$sql_query = "update trans_boardcontact 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_contact_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{contactid});
$csql_query = "DELETE FROM trans_boardcontact WHERE id = ?";
my $caasth = $dbh->do($csql_query, undef, @cvariables);
@ncvariables = ($INPUT{contactid});
$ncsql_query = "DELETE FROM trans_boardcontactnotes WHERE contactid = ?";
my $ncaasth = $dbh->do($ncsql_query, undef, @ncvariables);
@variables = ($INPUT{contactid});
$sql_query = "DELETE FROM trans_boardtranstocontact WHERE contactid = ?";
my $aasth = $dbh->do($sql_query, undef, @variables);
my $zaasth = $dbh->prepare("select did,newfileext from documents WHERE matchcat = 'c' AND matchid = '$INPUT{contactid}'");
$zaasth->execute;
while (($cdid,$cnewfileext) = $zaasth->fetchrow_array()) {
unlink("/home/muncieml/public_html/connect/documents/$cdid.$cnewfileext");
}
@docvariables = ($INPUT{contactid});
$docsql_query = "DELETE FROM documents WHERE matchcat = 'c' AND matchid = ?";
my $docasth = $dbh->do($docsql_query, undef, @docvariables);
print qq~
Making Changes to Datebase
Please wait, Processing
Removing Contact Information
Removing Contact Notes Information
Removing Contact Links To Listings
Removing Contact Documents
Removing Contact Documents Information
Please wait, Processing 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~
~;
####### GET TRANSACTIONS CLIENT IS PART OF #####################
my $cbbaasth = $dbh->prepare("select transid,type from trans_boardtranstocontact WHERE contactid = '$INPUT{contactid}'");
$cbbaasth->execute;
while (($temptransid,$temptype) = $cbbaasth->fetchrow_array()) {
my $aasth = $dbh->prepare("select id,agent,selleragent,sellercoagent,buyeragent,buyercoagent,type,addressnumber,addressdirection,addressstreet,city,state,zip,pendingdate,estimatedclosingdate from trans_board WHERE id = '$temptransid' ORDER BY type");
$aasth->execute;
$trcolor = "1";
$trcolor2 = "2";
while (($id,$transagent,$selleragent,$sellercoagent,$buyeragent,$buyercoagent,$type,$addressnumber,$addressdirection,$addressstreet,$city,$state,$zip,$pendingdate,$estimatedclosingdate) = $aasth->fetchrow_array()) {
print qq~
Cannot Delete Because Contact is linked to this transaction. Unlink first, then try to delete! $addressnumber,$addressdirection,$addressstreet
~;
}
$found = "yes";
}
####### END GET TRANSACTIONS CLIENT IS PART OF #################
unless ($found eq "yes") {
print qq~
Really Delete Contact $INPUT{name}?
are you sure you want to remove?
~;
my $zadasth = $dbh->prepare("select linktocontact,username,password from trans_boarduserpass where linktocontact = '$INPUT{contactid}'");
$zadasth->execute;
while (($linktocontact,$username,$password) = $zadasth->fetchrow_array()) {
print qq~
you may view this clients history as of December 1st, 2004
Type
Status
Address
City
How Involved In Transaction
~;
####### GET TRANSACTIONS CLIENT IS PART OF #####################
my $cbbaasth = $dbh->prepare("select transid,type from trans_boardtranstocontact WHERE contactid = '$INPUT{contactid}'");
$cbbaasth->execute;
while (($temptransid,$temptype) = $cbbaasth->fetchrow_array()) {
my $aasth = $dbh->prepare("select id,agent,selleragent,sellercoagent,buyeragent,buyercoagent,type,status,addressnumber,addressdirection,addressstreet,city,state,zip,pendingdate,estimatedclosingdate from trans_board WHERE id = '$temptransid' ORDER BY type");
$aasth->execute;
$trcolor = "1";
$trcolor2 = "2";
while (($id,$transagent,$selleragent,$sellercoagent,$buyeragent,$buyercoagent,$type,$status,$addressnumber,$addressdirection,$addressstreet,$city,$state,$zip,$pendingdate,$estimatedclosingdate) = $aasth->fetchrow_array()) {
if ($trcolor eq $trcolor2) {
$trcolor = "1";
$setcolor = "#FFFFFF";
}
else {
$setcolor = "#CCCCFF";
$trcolor++;
}
print qq~
~;
}
}
####### END GET TRANSACTIONS CLIENT IS PART OF #################
}
print qq~
~;
&footer;
}
sub overview_contacts_smallaz {
#id,agent,type,firstname,lastname,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,email_block,notes
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~
Contacts Small A-ZSEARCH USERS LASTNAME BY
~;
my $basth = $dbh->prepare("select id,agent,type,firstname,lastname from trans_boardcontact 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_contact_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;
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{contactid},$generateaddedby,$INPUT{notes},$INPUT{viewable});
$sql_query = "INSERT INTO trans_boardcontactnotes values ('',?,now(),?,?,?)";
my $aasth = $dbh->do($sql_query, undef, @variables);
if ($INPUT{notify} eq "on") {
my $agentasth = $dbh->prepare("select firstname,lastname,email from agents where mlsid = '$Cook{agentid}' order by lastname desc");
$agentasth->execute;
while (($l3agent_firstname,$l3agent_lastname,$l3agent_email) = $agentasth->fetchrow_array()) {
open(MAIL,"|/usr/sbin/sendmail -t");
print MAIL "To: $l3agent_email\n";
print MAIL "From: Connect\@EagleSold.com\n";
print MAIL "Subject: Note Added to $INPUT{contactname}\n";
print MAIL "Content-type: text/html\n\n";
print MAIL qq~
Eagle Real Estate, Inc.
A Note '$INPUT{notes}' was just added for $INPUT{contactname} by $generateaddedby.
Note can also be viewed at: http://Connect.EagleSold.com.
~;
close(MAIL);
}
}
&Log(qq~Note Added For Contact: $INPUT{contactname} - $INPUT{notes}~); # routine at the bottom of config.idx
}
if ($INPUT{delete} eq "yes") {
print qq~
~;
exit 0;
}
elsif ($INPUT{delete} eq "do") {
@variables = ($INPUT{id});
$sql_query = "DELETE FROM trans_boardcontactnotes WHERE noteid = ?";
my $aasth = $dbh->do($sql_query, undef, @variables);
&Log(qq~Note Deleted for Contact: $INPUT{contactid}~); # routine at the bottom of config.idx
print qq~
Making Changes to Datebase
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
exit 0;
}
my $basth = $dbh->prepare("select noteid,contactid,DATE_FORMAT(datetime, '%b %D, %Y at %h\:%i%p'),addedby,note from trans_boardcontactnotes WHERE contactid = '$INPUT{contactid}' 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 Contact Manager -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
~;
print qq~
use the alphabet below to search your contacts
~;
if ($INPUT{contact}) {
my $basth = $dbh->prepare("select id,agent,type,firstname,lastname,spouse from trans_boardcontact WHERE agent = '$INPUT{agent}' AND lastname LIKE '$INPUT{contact}%' ORDER by lastname ASC");
$basth->execute;
$trcount = "1";
$totalperrow = "3";
$rowcolor1 = "1";
$rowcolor2 = "2";
print qq~
~;
unless ($ccfound eq "yes") {
print qq~
No Contacts Found, Click on the first letter in the alphabet above that corresponds with your contacts lastname to try another search. If your contact is not listed you can create a new contact by clicking on the link above.
~;
}
}
else {
print qq~
Click on the first letter in the alphabet above that corresponds with your contacts lastname to search your contacts.
~;
}
print qq~
Contacts with Next Contact Date
~;
my $casth = $dbh->prepare("select id,firstname,spouse,lastname,DATE_FORMAT(next_contactdate, '%M %D, %Y') from trans_boardcontact WHERE agent = '$INPUT{agent}' AND next_contactdate != '0000-00-00' ORDER BY next_contactdate ASC");
$casth->execute;
while (($id,$firstname,$spouse,$lastname,$next_contactdate) = $casth->fetchrow_array()) {
print qq~
$next_contactdate - $firstname $spouse $lastname
~;
$found = "yes";
}
unless ($found eq "yes") {
print qq~No Prospects Have Saved Next Contact Dates Yet!~;
}
print qq~
~;
$show_icon{doc} = qq~
~;
$show_icon{jpg} = qq~
~;
$show_icon{gif} = qq~
$firstname$spouse $lastname
Edit Contact
Delete Contact
