$INPUT{message}
~;
close(MAIL);
print
qq~E-Mail Successfully Sent!Close Window Now Action Plan: $stask_template_name [ Print Letter ] ";
}
elsif ( $task_triggers_activity eq "E-Mail" ) {
$task_triggers_activityl =
"[ Send E-Mail ] ";
}
else {
$task_triggers_activityl = "";
}
$display_task_list .= qq~
$task_triggers_activity $task_triggers_title $task_triggers_activityl$display_note$task_triggers_date_trigger
~;
$task_triggers_activityl = "";
$display_note = "";
$found = "yes";
}
my $basth =
$dbh->prepare(
"select id,idlink,task_type,title,activity,agent_task_id,DATE_FORMAT(date_trigger, '%b %D, %Y'),notes from trans_boardtask_triggers where idlink = '$INPUT{idlink}' AND template_id = '$stask_triggers_template_id' AND date_trigger > now() AND date_completed = '0000-00-00 00:00:00' order by date_trigger ASC"
);
$basth->execute;
while (
(
$task_triggers_id, $task_triggers_idlink,
$task_triggers_task_type, $task_triggers_title,
$task_triggers_activity, $task_triggers_agent_task_id,
$task_triggers_date_trigger, $task_triggers_notes
)
= $basth->fetchrow_array()
)
{
unless ( $task_triggers_notes eq "" ) {
$display_note = "[ Print Letter ] ";
}
elsif ( $task_triggers_activity eq "E-Mail" ) {
$task_triggers_activityl =
"[ Send E-Mail ] ";
}
else {
$task_triggers_activityl = "";
}
$display_task_list .= qq~
$task_triggers_activity $task_triggers_title $task_triggers_activityl$display_note$task_triggers_date_trigger
~;
$task_triggers_activityl = "";
$display_note = "";
$found = "yes";
}
my $basth =
$dbh->prepare(
"select id,idlink,task_type,title,activity,agent_task_id,DATE_FORMAT(date_trigger, '%b %D, %Y'),DATE_FORMAT(date_completed, '%b %D, %Y at %h\:%i%p'),completed_by,notes from trans_boardtask_triggers where idlink = '$INPUT{idlink}' AND template_id = '$stask_triggers_template_id' AND date_completed != '0000-00-00 00:00:00' order by date_trigger ASC"
);
$basth->execute;
while (
(
$task_triggers_id,
$task_triggers_idlink,
$task_triggers_task_type,
$task_triggers_title,
$task_triggers_activity,
$task_triggers_agent_task_id,
$task_triggers_date_trigger,
$task_triggers_date_completed,
$task_triggers_completed_by,
$task_triggers_notes
)
= $basth->fetchrow_array()
)
{
unless ( $task_triggers_notes eq "" ) {
$display_note = "[ Print Letter ] ";
}
elsif ( $task_triggers_activity eq "E-Mail" ) {
$task_triggers_activityl =
"[ Send E-Mail ] ";
}
else {
$task_triggers_activityl = "";
}
$display_task_list .= qq~
$task_triggers_activity $task_triggers_title $task_triggers_activityl$display_noteCompleted $task_triggers_date_completed By $task_triggers_completed_by $task_triggers_date_trigger
~;
$task_triggers_activityl = "";
$display_note = "";
$found = "yes";
}
} ## END MAIN TASK CHECKER
print qq~
$message_status
Activity Description Due Date Actions
~;
unless ( $found eq "yes" ) {
print qq~
You Have Not Setup Any Action Plans! Click the Apply Plan Link Above To Apply Template!
~;
}
print qq~
~;
}
sub overview_showings {
use DBI;
$dsn = "DBI:mysql:database=$d_name;host=localhost";
$dbh = DBI->connect( $dsn, $d_username, $d_pass, { RaiseError => 1 } )
|| die $DBI::errstr;
#showingid,mlsnumber,status,enteredby,showingagent,appointmentdate,timerange1,timerange2,confirmeddatetime,confirmedwith,feedback
print qq~
Showing Information in Overview
Return To Showing List
Entered By $enteredby Date $appointmentdate Showing Time $timerange1 - $timerange2
Status $statusConfirmed With $confirmedwithAgent
~;
my $baasth =
$dbh->prepare(
"select firstname,lastname,agent1phone from trans_boarddirectory where id = '$showingagent'"
);
$baasth->execute;
while (
(
$firstname, $lastname, $agent1type, $agent1phone,
$agent2type, $agent2phone, $agent3type, $agent3phone
)
= $baasth->fetchrow_array()
)
{
$sagent = "$firstname $lastname";
print qq~
$firstname $lastname
Feedback from $sagent: No Feedback Received!
~;
}
print qq~
All Comments: No Feedback Received!
~;
}
print qq~
~;
}
}
else {
print qq~
Status Date Time Range Agent Feedback Actions
~;
my $aasth =
$dbh->prepare(
"select showingid,mlsnumber,status,enteredby,showingagent,appointmentdate,timerange1,timerange2,confirmeddatetime,confirmedwith from trans_boardshowings where mlsnumber = '$INPUT{mlsnumber}' order by appointmentdate desc"
);
$aasth->execute;
$trcolor = "1";
$trcolor2 = "2";
while (
(
$showingid, $mlsnumber, $status,
$enteredby, $showingagent, $appointmentdate,
$timerange1, $timerange2, $confirmeddatetime,
$confirmedwith
)
= $aasth->fetchrow_array()
)
{
my $feedasth =
$dbh->prepare(
"select sid,comments from trans_boardfeedback where sid = '$showingid'"
);
$feedasth->execute;
while ( ( $showing_sid, $showing_comments ) =
$feedasth->fetchrow_array() )
{
$checkfeedback = "yes";
}
if ( $checkfeedback eq "yes" ) {
$feedback = "Yes";
}
else {
$feedback = "No";
}
if ( $trcolor eq $trcolor2 ) {
$trcolor = "1";
$setcolor = "#FFFF99";
}
else {
$setcolor = "#FFFFFF";
$trcolor++;
}
print qq~
$status
$appointmentdate
$timerange1 - $timerange2
~;
my $baasth =
$dbh->prepare(
"select firstname,lastname from trans_boarddirectory where id = '$showingagent'"
);
$baasth->execute;
while ( ( $firstname, $lastname ) = $baasth->fetchrow_array() ) {
$firstname = substr( $firstname, 0, 1 );
$lastname = substr( $lastname, 0, 5 );
print qq~
$firstname.$lastname
~;
}
print qq~
$feedback
View
~;
$found = "yes";
$checkfeedback = "no";
}
unless ( $found eq "yes" ) {
print qq~
No Showings Have Been Setup Yet!
~;
}
print qq~
~;
}
print qq~
~;
}
sub overview_prospects_add {
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~
Prospect Information in Overview
Return TO Client Overview We found $counttemp agent email templates for you. You may choose office or agent templates below to load into email now! $name --
~;
}
print qq~
Company Directory -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
if ( $INPUT{searchtype} eq "company" ) {
$buildlink =
"transactions.idx?action=directory&company=$INPUT{company}&agent=$Cook{agentid}";
}
elsif ( $INPUT{searchtype} eq "contact" ) {
$buildlink =
"transactions.idx?action=directory&contact=$INPUT{contact}&agent=$Cook{agentid}";
}
print qq~
Navigation: Return To Directory Search Results
$firstname $lastname
Company Information:
$company
Transaction(s) History as of December 1st, 2004
Address City Sold Date How Involved In Transaction
~;
my $casth =
$dbh->prepare(
"select id,agent,selleragent,sellercoagent,buyeragent,buyercoagent,addressnumber,addressdirection,addressstreet,city,state,zip,solddate from trans_board WHERE agent = '$Cook{agentid}' AND (buyeragent = '$id' or buyercoagent = '$id' or sellercoagent = '$id' or selleragent = '$id') ORDER BY solddate desc"
);
$casth->execute;
$trcolor = "1";
$trcolor2 = "2";
while (
(
$transid, $transagent, $selleragent,
$sellercoagent, $buyeragent, $buyercoagent,
$addressnumber, $addressdirection, $addressstreet,
$city, $state, $zip,
$solddate
)
= $casth->fetchrow_array()
)
{
if ( $trcolor eq $trcolor2 ) {
$trcolor = "1";
$setcolor = "#FFFFFF";
}
else {
$setcolor = "#CCCCFF";
$trcolor++;
}
if ( $solddate eq '0000-00-00' ) {
$solddate = "Not Sold Yet";
}
if ( $selleragent eq "$id" ) {
$transtype = "Seller Agent";
}
if ( $sellercoagent eq "$id" ) {
$transtype = "Seller Co Agent";
}
if ( $buyeragent eq "$id" ) {
$transtype = "Buyer Agent";
}
if ( $buyercoagent eq "$id" ) {
$transtype = "Buyer Co Agent";
}
if ( $selleragent eq $buyeragent ) {
$transtype = "Buyer & Seller Agent";
}
print qq~
View $addressnumber $addressdirection $addressstreet $city $solddate $transtype
~;
$found = "yes";
}
unless ( $found eq "yes" ) {
print qq~
No History Found For This Contact
~;
}
print qq~
~;
}
print qq~
~;
&footer;
}
sub directory {
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 $abasth = $dbh->prepare(
"select company from trans_boarddirectory GROUP BY company ASC");
$abasth->execute;
while ( ($company) = $abasth->fetchrow_array() ) {
$buildcompany .= "$company ";
}
print qq~
Company Directory -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
view contacts and information the directory Contacts
Search Company Directory By Lastname
All
A |
B |
C |
D |
E |
F |
G |
H |
I |
J |
K |
L |
M |
N |
O |
P |
Q |
R |
S |
T |
U |
V |
W |
X |
Y |
Z
~;
while ( ( $directoryid, $firstname, $lastname, $company ) =
$basth->fetchrow_array() )
{
$company = substr( $company, 0, 16 );
print qq~
$lastname, $firstname - $company
~;
if ( $color_count eq "1" ) {
print qq~ ~;
$color_count = "0";
}
else {
$color_count = "1";
}
if ( $color_count eq "0" ) {
if ( $row_switch eq "on" ) {
$row_switch = "off";
}
else {
$row_switch = "on";
}
}
$ccfound = "yes";
}
print qq~ ~
if ( $color_count eq "1" );
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. You may click on the first letter in the alphabet above that corresponds with your contacts lastname to search your contacts. Contacts Small A-Z
SEARCH USERS LASTNAME BY
A |
B |
C |
D |
E |
F |
G |
H |
I |
J |
K |
L |
M |
N |
O |
P |
Q |
R |
S |
T |
U |
V |
W |
X |
Y |
Z
Notes
~;
$trcolor = "1";
$trcolor2 = "2";
while ( ( $noteid, $transid, $datetime, $addedby, $note ) =
$basth->fetchrow_array() )
{
if ( $trcolor eq $trcolor2 ) {
$trcolor = "1";
$setcolor = "#FFFFFF";
}
else {
$setcolor = "#CCCCFF";
$trcolor++;
}
print qq~
$note Added by $addedby on $datetime
~;
$found = "yes";
}
unless ( $found eq "yes" ) {
print qq~
No notes have been added yet! You may use the textbox to the right to save notes.
~;
}
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;
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
~;
$trcolor = "1";
$trcolor2 = "2";
while ( ( $noteid, $contactid, $datetime, $addedby, $note ) =
$basth->fetchrow_array() )
{
if ( $trcolor eq $trcolor2 ) {
$trcolor = "1";
$setcolor = "#FFFFFF";
}
else {
$setcolor = "#CCCCFF";
$trcolor++;
}
print qq~
$note Added by $addedby on $datetime
~;
$found = "yes";
}
unless ( $found eq "yes" ) {
print qq~
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;
if ( $INPUT{viewtypeclass} eq "All" ) {
$viewtypeoptionclass = "All Classes ";
$viewtypeoptionclass .= "----------- ";
$viewtypeclasssql = "";
$status = "";
}
elsif ( $INPUT{viewtypeclass} eq "Residential" ) {
$viewtypeoptionclass =
"Residential ";
$viewtypeoptionclass .= "----------- ";
$viewtypeclasssql = "AND listingclass = 'Residential'";
$status = "";
}
elsif ( $INPUT{viewtypeclass} eq "Commercial" ) {
$viewtypeoptionclass =
"Commercial ";
$viewtypeoptionclass .= "----------- ";
$viewtypeclasssql = "AND listingclass = 'Commercial'";
$status = "";
}
elsif ( $INPUT{viewtypeclass} eq "Investment" ) {
$viewtypeoptionclass =
"Investment ";
$viewtypeoptionclass .= "----------- ";
$viewtypeclasssql = "AND listingclass = 'Investment'";
$status = "";
}
elsif ( $INPUT{viewtypeclass} eq "LotsLand" ) {
$viewtypeoptionclass =
"Lots and Land ";
$viewtypeoptionclass .= "----------- ";
$viewtypeclasssql = "AND listingclass = 'LotsLand'";
$status = "";
}
if ( $INPUT{viewtype} eq "Listing" ) {
$viewtypeoption = "Listings ";
$viewtypeoption .= "----------- ";
$viewtypesql =
"AND type = 'Listing' and (status = 'Active' or status = 'Pending')";
$status = "";
}
if ( $INPUT{viewtype} eq "Prospect" ) {
$viewtypeoption =
"Listing Prospects ";
$viewtypeoption .= "----------- ";
$viewtypesql = "AND status = 'Prospect'";
$status = "";
}
elsif ( $INPUT{viewtype} eq "BP" ) {
$viewtypeoption = "Buyer Side Sales ";
$viewtypeoption .= "----------- ";
$viewtypesql = "AND (type = 'BP' and status = 'Active')";
$status = "";
}
elsif ( $INPUT{viewtype} eq "BSP" ) {
$viewtypeoption =
"Buyer & Seller Side Sales ";
$viewtypeoption .= "----------- ";
$viewtypesql = "AND (type = 'BSP' and status = 'Pending')";
$status = "";
}
elsif ( $INPUT{viewtype} eq "Expired" ) {
$viewtypeoption = "Expired Listings ";
$viewtypeoption .= "----------- ";
$viewtypesql = "AND status = 'Expired'";
$status = "";
}
elsif ( $INPUT{viewtype} eq "CLSD" ) {
$viewtypeoption = "Closed (SOLD) ";
$viewtypeoption .= "----------- ";
$viewtypesql = "AND status = 'CLSD'";
$status = "";
}
elsif ( $INPUT{viewtype} eq "WTHD" ) {
$viewtypeoption = "Withdrawn (Release) ";
$viewtypeoption .= "----------- ";
$viewtypesql = "AND status = 'WTHD'";
$status = "";
}
elsif ( $INPUT{viewtype} eq "DEAD" ) {
$viewtypeoption =
"Dead Deal (Not Closing) ";
$viewtypeoption .= "----------- ";
$viewtypesql = "AND status = 'DEAD'";
$status = "";
}
elsif ( $INPUT{viewtype} eq "Pending" ) {
$viewtypeoption = "Pendings ";
$viewtypeoption .= "----------- ";
$viewtypesql = "AND status = 'Pending'";
$status = "";
}
elsif ( $INPUT{viewtype} eq "notactive" ) {
$viewtypeoption = "All Not Active ";
$viewtypeoption .= "----------- ";
$viewtypesql =
"AND (status = 'WTHD' or status = 'CLSD' or status = 'Expired' or status = 'DEAD')";
$status = "";
}
elsif ( $INPUT{viewtype} eq "allactive" ) {
$viewtypeoption = "All Actives ";
$viewtypeoption .= "----------- ";
$viewtypesql = "AND status = 'Active'";
$status = "";
}
elsif ( $INPUT{viewtype} eq "allpending" ) {
$viewtypeoption = "All Pendings ";
$viewtypeoption .= "----------- ";
$viewtypesql = "AND status = 'Pending'";
$status = "";
}
elsif ( $INPUT{viewtype} eq "allap" ) {
$viewtypeoption =
"All Actives & Pendings ";
$viewtypeoption .= "----------- ";
$viewtypesql = "AND (status = 'Active' or status = 'Pending')";
$status = "";
}
elsif ( $INPUT{viewtype} eq "all" ) {
$viewtypeoption = "All Transactions ";
$viewtypeoption .= "----------- ";
$viewtypesql = "";
$status = "";
}
else {
$viewtypeoption = "All Actives & Pendings ";
$viewtypeoption .= "----------- ";
$viewtypesql = "AND (status = 'Active' or status = 'Pending')";
$status = "";
}
print qq~
My Eagle Transactions Manager -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
use the drop down box below to search your transactions
Status Address Buyer Seller
~;
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 agent = '$Cook{agentid}'$viewtypeclasssql$viewtypesql ORDER BY status DESC"
);
$aasth->execute;
$trcolor = "1";
$trcolor2 = "2";
while (
(
$id, $agent, $selleragent,
$sellercoagent, $buyeragent, $buyercoagent,
$type, $status, $addressnumber,
$addressdirection, $addressstreet, $city,
$state, $zip, $pendingdate,
$estimatedclosingdate
)
= $aasth->fetchrow_array()
)
{
$bfound = "no";
$sfound = "no";
if ( $trcolor eq $trcolor2 ) {
$trcolor = "1";
$setcolor = "#FFFFFF";
}
else {
$setcolor = "#FFFF99";
$trcolor++;
}
print qq~
$status $addressnumber $addressdirection $addressstreet
~;
######### GET BUYER INFORMATION #####################
my $bbaasth =
$dbh->prepare(
"select contactid from trans_boardtranstocontact WHERE transid = '$id' AND type = 'Buyer'"
);
$bbaasth->execute;
while ( ($tempcontactid) = $bbaasth->fetchrow_array() ) {
my $ddasth =
$dbh->prepare(
"select id,agent,type,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,notes from trans_boardcontact WHERE id = '$tempcontactid'"
);
$ddasth->execute;
while (
(
$b_contactid, $b_agent, $b_type,
$b_firstname, $b_lastname, $b_address,
$b_spouse, $b_city, $b_state,
$b_zip, $b_phone1type, $b_phone1number,
$b_phone2type, $b_phone2number, $b_phone3type,
$b_phone3number, $b_faxnumber, $b_email,
$b_emailtwo, $b_notes
)
= $ddasth->fetchrow_array()
)
{
$b_firstname = substr( $b_firstname, 0, 5 );
$b_spouse = substr( $b_spouse, 0, 5 );
if ($b_spouse) {
$b_lastname = substr( $b_lastname, 0, 1 );
$b_lastname .= ".";
}
else {
$b_lastname = substr( $b_lastname, 0, 8 );
}
if ( $b_spouse ne "" ) {
$b_spouse = " & $b_spouse ";
}
else {
$b_spouse = "";
}
print qq~
$b_firstname$b_spouse $b_lastname Create/Assign
~;
}
#####################################################
print qq~
~;
######### GET SELLER INFORMATION #####################
my $sbaasth =
$dbh->prepare(
"select contactid from trans_boardtranstocontact WHERE transid = '$id' AND type = 'Seller'"
);
$sbaasth->execute;
while ( ($tempcontactid) = $sbaasth->fetchrow_array() ) {
my $sddasth =
$dbh->prepare(
"select id,agent,type,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,notes from trans_boardcontact WHERE id = '$tempcontactid'"
);
$sddasth->execute;
while (
(
$s_contactid, $s_agent, $s_type,
$s_firstname, $s_lastname, $s_address,
$s_spouse, $s_city, $s_state,
$s_zip, $s_phone1type, $s_phone1number,
$s_phone2type, $s_phone2number, $s_phone3type,
$s_phone3number, $s_faxnumber, $s_email,
$s_emailtwo, $s_notes
)
= $sddasth->fetchrow_array()
)
{
$s_firstname = substr( $s_firstname, 0, 5 );
$s_spouse = substr( $s_spouse, 0, 5 );
if ($s_spouse) {
$s_lastname = substr( $s_lastname, 0, 1 );
$s_lastname .= ".";
}
else {
$s_lastname = substr( $s_lastname, 0, 8 );
}
if ( $s_spouse ne "" ) {
$s_spouse = " & $s_spouse ";
}
else {
$s_spouse = "";
}
$sfound = "no";
print qq~
$s_firstname$s_spouse $s_lastname Create/Assign
~;
$found = "yes";
}
unless ( $found eq "yes" ) {
print qq~
No transactions found. You may try another search.
~;
}
print qq~
~;
&footer;
}
sub overview {
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{transid}, $generateaddedby, $INPUT{notes},
$INPUT{viewable} );
$sql_query = "INSERT INTO trans_boardnotes values ('',?,now(),?,?,?)";
my $aasth = $dbh->do( $sql_query, undef, @variables );
&Log(qq~Note Added For Transaction: $INPUT{address} - $INPUT{notes}~)
; # routine at the bottom of config.idx
if ( $INPUT{todo} eq "yes" ) {
my $dasth = $dbh->prepare("select DATE_FORMAT(now(), '%Y-%m-%d')");
$dasth->execute;
while ( ($gnow) = $dasth->fetchrow_array() ) {
$good_date = $gnow;
}
$notes =
"Listing note added to $INPUT{address} by $generateaddedby: My Transactions Overview -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
Navigation: go to transactions
~;
if ( -e "/photos/muncie_in_meiar/thumbnail/meiarmls$mlsnumber\.jpg" ) {
print qq~
~;
}
print qq~
$addressnumber $addressdirection $addressstreet Edit Transaction
~;
######### GET BUYER INFORMATION #####################
my $bbaasth =
$dbh->prepare(
"select contactid from trans_boardtranstocontact WHERE transid = '$INPUT{transid}' AND type = 'Buyer'"
);
$bbaasth->execute;
while ( ($tempcontactid) = $bbaasth->fetchrow_array() ) {
my $ddasth =
$dbh->prepare(
"select id,agent,type,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,notes from trans_boardcontact WHERE id = '$tempcontactid'"
);
$ddasth->execute;
while (
(
$b_contactid, $b_agent, $b_type,
$b_firstname, $b_lastname, $b_address,
$b_spouse, $b_city, $b_state,
$b_zip, $b_phone1type, $b_phone1number,
$b_phone2type, $b_phone2number, $b_phone3type,
$b_phone3number, $b_faxnumber, $b_email,
$b_emailtwo, $b_notes
)
= $ddasth->fetchrow_array()
)
{
if ( $b_spouse ne "" ) {
$b_spouse = " & $b_spouse ";
}
else {
$b_spouse = "";
}
print qq~
$b_firstname$b_spouse $b_lastname Assign Another Buyer Assign Buyer
~;
}
#####################################################
print qq~
~;
######### GET SELLER INFORMATION #####################
my $sbaasth =
$dbh->prepare(
"select contactid from trans_boardtranstocontact WHERE transid = '$INPUT{transid}' AND type = 'Seller'"
);
$sbaasth->execute;
while ( ($tempcontactid) = $sbaasth->fetchrow_array() ) {
my $sddasth =
$dbh->prepare(
"select id,agent,type,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,notes from trans_boardcontact WHERE id = '$tempcontactid'"
);
$sddasth->execute;
while (
(
$s_contactid, $s_agent, $s_type,
$s_firstname, $s_lastname, $s_address,
$s_spouse, $s_city, $s_state,
$s_zip, $s_phone1type, $s_phone1number,
$s_phone2type, $s_phone2number, $s_phone3type,
$s_phone3number, $s_faxnumber, $s_email,
$s_emailtwo, $s_notes
)
= $sddasth->fetchrow_array()
)
{
if ( $s_spouse ne "" ) {
$s_spouse = " & $s_spouse ";
}
else {
$s_spouse = "";
}
print qq~
$s_firstname$s_spouse $s_lastname Assign Another Seller Assign Seller
~;
}
#####################################################
print qq~
Type $type Status $status Listing Class $listingclass MLS Number $mlsnumber Listing Date $listingdate Expire Date $expiredate Listing Price $listingprice Pending Date $pendingdate Earnest Money $earnestmoneyreceived \$$earnestmoneydollar $earnestmoneyheldat Inspection Response $inspectionresponsedate Estimated Closing Date $estimatedclosingdate Sold Price $soldprice Sold Date $solddate Notes $notes Seller Agent $selleragent $listagentfirstname $listagentlastname $sclistagentfirstname $sclistagentlastname Buyer Agent No Agent Assigned $blistagentfirstname $blistagentlastname $bclistagentfirstname $bclistagentlastname
~;
if ( $type eq 'BSP' or $type eq 'Listing' or $type eq 'SP' ) {
print qq~
Showing Instructions: $showinginstructions
~;
}
if ( $type eq 'BSP' or $type eq 'Listing' or $type eq 'SP' ) {
print qq~
Listing Prospects
MuncieMLS Prospects
~;
my $countasth =
$dbh->prepare(
"select count(userid) from hits where mlsnumber = '$mlsnumber'"
);
$countasth->execute;
while ( ($hits) = $countasth->fetchrow_array() ) {
print qq~
[ $hits Views ]
~;
}
print qq~
~;
}
print qq~
~;
}
print qq~
~;
&footer;
}
sub overview_mortgage_fa {
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 $aasth = $dbh->prepare(
"select id from trans_boardmortgage WHERE id = '$INPUT{transid}'");
$aasth->execute;
while ( ($id) = $aasth->fetchrow_array() ) {
$found = "yes";
}
unless ( $found ne "yes" ) {
$btntype =
"Edit ";
}
else {
$btntype =
"Add ";
}
print qq~
Mortgage Information in Overview
Making Changes to Datebase
Please wait, Processing Click Here .Select Final Approval Date
~;
}
print qq~
~;
}
sub overview_mortgage_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 $aasth = $dbh->prepare(
"select id from trans_boardmortgage WHERE id = '$INPUT{transid}'");
$aasth->execute;
while ( ($id) = $aasth->fetchrow_array() ) {
$found = "yes";
}
unless ( $found ne "yes" ) {
$btntype =
"Edit ";
}
else {
$btntype =
"Add ";
}
print qq~
Mortgage Information in Overview
Making Changes to Datebase
Please wait, Processing Click Here .[ Received ] ";
}
print qq~
Loan Type $loantype$company $loanofficerCo Phone $phoneLoan Officer Phone $lophoneFax $faxProcessor $processorFinal Approval Date $finalapprovalNotes $notesAdd Info
~;
}
}
print qq~
~;
}
sub overview_mortgage {
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 $aasth = $dbh->prepare(
"select id from trans_boardmortgage WHERE id = '$INPUT{transid}'");
$aasth->execute;
while ( ($id) = $aasth->fetchrow_array() ) {
$found = "yes";
}
unless ( $found ne "yes" ) {
$btntype =
"Edit ";
}
else {
$btntype =
"Add ";
}
print qq~
Mortgage Information in Overview
FINISH [ Received ] ";
}
print qq~
Loan Type $loantype
$company $loanofficer
Co Phone $phone
Loan Officer Phone $lophone
Fax $fax
Processor $processor
Final Approval Date $finalapproval
Notes $notes
~;
$found = "yes";
}
unless ( $found eq "yes" ) {
print qq~
Mortgage Information Has Not Been Entered Yet. Add Info
~;
}
}
print qq~
~;
}
sub create_transaction {
#####VALUES id,agent,selleragent,sellercoagent,buyeragent,buyercoagent,type,status,addressnumber,addressdirection,addressstreet,city,state,zip,listingdate,expiredate,listingprice,notes,pendingdate,inspectionresponsedays,estimatedclosingdate,soldprice,solddate ####
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~
Create New Transaction -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
fill out the form below to create a new transaction
~;
&footer;
}
sub create_transaction_verify {
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;
$INPUT{showinginstructions} =~ s/\"//gi;
$INPUT{showinginstructions} =~ s/\'//gi;
$INPUT{mlsnumber} =~ s/\"//gi;
$INPUT{mlsnumber} =~ s/\'//gi;
$Cook{agentid} =~ s/\"//gi;
$Cook{agentid} =~ s/\'//gi;
$INPUT{selleragent} =~ s/\"//gi;
$INPUT{selleragent} =~ s/\'//gi;
$INPUT{buyeragent} =~ s/\"//gi;
$INPUT{buyeragent} =~ s/\'//gi;
$INPUT{type} =~ s/\"//gi;
$INPUT{type} =~ s/\'//gi;
$INPUT{addressstreet} =~ s/\"//gi;
$INPUT{addressstreet} =~ s/\'//gi;
$INPUT{city} =~ s/\"//gi;
$INPUT{city} =~ s/\'//gi;
$INPUT{state} =~ s/\"//gi;
$INPUT{state} =~ s/\'//gi;
$INPUT{zip} =~ s/\"//gi;
$INPUT{zip} =~ s/\'//gi;
$INPUT{listingdate} =~ s/\"//gi;
$INPUT{listingdate} =~ s/\'//gi;
$INPUT{expiredate} =~ s/\"//gi;
$INPUT{expiredate} =~ s/\'//gi;
$INPUT{listingprice} =~ s/\"//gi;
$INPUT{listingprice} =~ s/\'//gi;
$INPUT{notes} =~ s/\"//gi;
$INPUT{notes} =~ s/\'//gi;
$INPUT{pendingdate} =~ s/\"//gi;
$INPUT{pendingdate} =~ s/\'//gi;
$INPUT{inspectionresponsedays} =~ s/\"//gi;
$INPUT{inspectionresponsedays} =~ s/\'//gi;
$INPUT{estimatedclosingdate} =~ s/\"//gi;
$INPUT{estimatedclosingdate} =~ s/\'//gi;
$INPUT{soldprice} =~ s/\"//gi;
$INPUT{soldprice} =~ s/\'//gi;
$INPUT{solddate} =~ s/\"//gi;
$INPUT{solddate} =~ s/\'//gi;
#$INPUT{listingprice} =~ s/\,//gi;
#$INPUT{soldprice} =~ s/\,//gi;
if ( $INPUT{type} eq "AL" ) {
$typename = "Active Listing";
}
elsif ( $INPUT{type} eq "EL" ) {
$typename = "Expired Listing";
}
elsif ( $INPUT{type} eq "BP" ) {
$typename = "Buyer Pending";
}
elsif ( $INPUT{type} eq "SP" ) {
$typename = "Seller Pending";
}
elsif ( $INPUT{type} eq "BSP" ) {
$typename = "Buyer & Seller Pending";
}
elsif ( $INPUT{type} eq "CLSD" ) {
$typename = "Closed (SOLD)";
}
else {
$typename = "Other";
}
my $zaasth =
$dbh->prepare(
"select id,firstname,lastname,company from trans_boarddirectory where id = '$INPUT{selleragent}'"
);
$zaasth->execute;
my $azaasth =
$dbh->prepare(
"select id,firstname,lastname,company from trans_boarddirectory where id = '$INPUT{sellercoagent}'"
);
$azaasth->execute;
my $bzaasth =
$dbh->prepare(
"select id,firstname,lastname,company from trans_boarddirectory where id = '$INPUT{buyeragent}'"
);
$bzaasth->execute;
my $czaasth =
$dbh->prepare(
"select id,firstname,lastname,company from trans_boarddirectory where id = '$INPUT{buyercoagent}'"
);
$czaasth->execute;
print qq~
Verify New Transaction -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
Verify the information below to create a new transaction
~;
&footer;
}
sub create_transaction_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 = (
$Cook{agentid}, $INPUT{mlsnumber},
$INPUT{selleragent}, $INPUT{sellercoagent},
$INPUT{buyeragent}, $INPUT{buyercoagent},
$INPUT{type}, $INPUT{status},
$INPUT{listingclass}, $INPUT{addressnumber},
$INPUT{addressdirection}, $INPUT{addressstreet},
$INPUT{city}, $INPUT{state},
$INPUT{zip}, $INPUT{listingdate},
$INPUT{expiredate}, $INPUT{listingprice},
$INPUT{showinginstructions}, $INPUT{notes},
$INPUT{pendingdate}, $INPUT{earnestmoneyreceived},
$INPUT{earnestmoneydollar}, $INPUT{earnestmoneyheldat},
$INPUT{inspectionresponsedays}, $INPUT{estimatedclosingdate},
$INPUT{soldprice}, $INPUT{solddate}
);
$sql_query =
"INSERT INTO trans_board values ('',?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)";
my $aasth = $dbh->do( $sql_query, undef, @variables );
my $basth =
$dbh->prepare(
"SELECT id FROM trans_board WHERE agent = '$Cook{agentid}' ORDER BY id DESC LIMIT 0,1"
);
$basth->execute;
while ( ($id) = $basth->fetchrow_array() ) {
$newid = $id;
}
$status =
"Successfully Created New Transaction For $INPUT{addressnumber} $INPUT{addressdirection} $INPUT{addressstreet} in $INPUT{city}";
&main;
}
sub assign_contact_do {
#$INPUT{transid}
#$INPUT{contactid}
#$Cook{agentid}
#INPUT{contact_type}
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{transid}, $INPUT{contactid}, $INPUT{contact_type} );
$sql_query = "INSERT INTO trans_boardtranstocontact values (?,?,?)";
my $aasth = $dbh->do( $sql_query, undef, @variables );
print qq~
Making Changes to Datebase
Please wait, Processing Click Here .Making Changes to Datebase
Please wait, Processing Click Here .Assign Contact To Transaction -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
contact will be assigned to $INPUT{address}
Create A New Contact Once you create this new contact, they will automatically be linked as a $INPUT{contact_type} to the $INPUT{address} transaction.
$lastname, $firstname$spouse [ Link as $INPUT{address} $INPUT{contact_type} ] No Contacts Found, Click on the first letter in the alphabet above that corresponds with your contacts lastname.
~;
#id,agent,type,firstname,lastname,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,notes
&footer;
}
sub edit_transaction {
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~
Edit Transaction -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
my $aasth =
$dbh->prepare(
"select id,agent,mlsnumber,selleragent,sellercoagent,buyeragent,buyercoagent,type,status,listingclass,addressnumber,addressdirection,addressstreet,city,state,zip,listingdate,expiredate,listingprice,showinginstructions,notes,pendingdate,earnestmoneyreceived,earnestmoneydollar,earnestmoneyheldat,inspectionresponsedays,estimatedclosingdate,soldprice,solddate from trans_board WHERE id = '$INPUT{transid}'"
);
$aasth->execute;
while (
(
$id, $agent,
$mlsnumber, $selleragent,
$sellercoagent, $buyeragent,
$buyercoagent, $type,
$status, $listingclass,
$addressnumber, $addressdirection,
$addressstreet, $city,
$state, $zip,
$listingdate, $expiredate,
$listingprice, $showinginstructions,
$notes, $pendingdate,
$earnestmoneyreceived, $earnestmoneydollar,
$earnestmoneyheldat, $inspectionresponsedays,
$estimatedclosingdate, $soldprice,
$solddate
)
= $aasth->fetchrow_array()
)
{
if ( $listingdate eq "0000-00-00" ) {
$listingdate = "";
}
if ( $expiredate eq "0000-00-00" ) {
$expiredate = "";
}
if ( $pendingdate eq "0000-00-00" ) {
$pendingdate = "";
}
if ( $estimatedclosingdate eq "0000-00-00" ) {
$estimatedclosingdate = "";
}
if ( $solddate eq "0000-00-00" ) {
$solddate = "";
}
if ( $earnestmoneyreceived eq "0000-00-00 00:00:00" ) {
$earnestmoneyreceived = "";
}
if ( $listingclass eq "Residential" ) {
$viewtypeoptionclass =
"Residential ";
$viewtypeoptionclass .= "----------- ";
}
elsif ( $listingclass eq "Commercial" ) {
$viewtypeoptionclass =
"Commercial ";
$viewtypeoptionclass .= "----------- ";
}
elsif ( $listingclass eq "Investment" ) {
$viewtypeoptionclass =
"Investment ";
$viewtypeoptionclass .= "----------- ";
}
elsif ( $listingclass eq "LotsLand" ) {
$viewtypeoptionclass =
"Lots and Land ";
$viewtypeoptionclass .= "----------- ";
}
my $aabuyeragent =
$dbh->prepare(
"select id,firstname,lastname,company from trans_boarddirectory where id = '$buyeragent'"
);
$aabuyeragent->execute;
while ( ( $gbid, $gbfirstname, $gblastname, $gbcompany ) =
$aabuyeragent->fetchrow_array() )
{
$getbuyeragent =
"$gbcompany -- $gblastname, $gbfirstname ";
}
my $aabuyercoagent =
$dbh->prepare(
"select id,firstname,lastname,company from trans_boarddirectory where id = '$buyercoagent'"
);
$aabuyercoagent->execute;
while ( ( $gbcid, $gbcfirstname, $gbclastname, $gbccompany ) =
$aabuyercoagent->fetchrow_array() )
{
$getbuyercoagent =
"$gbccompany -- $gbclastname, $gbcfirstname ";
}
my $aaselleragent =
$dbh->prepare(
"select id,firstname,lastname,company from trans_boarddirectory where id = '$selleragent'"
);
$aaselleragent->execute;
while ( ( $gsid, $gsfirstname, $gslastname, $gscompany ) =
$aaselleragent->fetchrow_array() )
{
$getselleragent =
"$gscompany -- $gslastname, $gsfirstname ";
}
my $aasellercoagent =
$dbh->prepare(
"select id,firstname,lastname,company from trans_boarddirectory where id = '$sellercoagent'"
);
$aasellercoagent->execute;
while ( ( $gscid, $gscfirstname, $gsclastname, $gsccompany ) =
$aasellercoagent->fetchrow_array() )
{
$getsellercoagent =
"$gsccompany -- $gsclastname, $gscfirstname ";
}
if ( $type eq "Listing" ) {
$viewtypeoption = "Listing ";
$viewtypeoption .= "----------- ";
}
elsif ( $type eq "BP" ) {
$viewtypeoption = "Buyer Side Sale ";
$viewtypeoption .= "----------- ";
}
elsif ( $type eq "BSP" ) {
$viewtypeoption =
"Buyer & Seller Side Sale ";
$viewtypeoption .= "----------- ";
}
if ( $status eq "CLSD" ) {
$viewstatusoption = "Closed (SOLD) ";
$viewstatusoption .= "----------- ";
}
elsif ( $status eq "WTHD" ) {
$viewstatusoption =
"Withdrawn (Release) ";
$viewstatusoption .= "----------- ";
}
elsif ( $status eq "Active" ) {
$viewstatusoption = "Active ";
$viewstatusoption .= "----------- ";
}
elsif ( $status eq "Pending" ) {
$viewstatusoption = "Pending ";
$viewstatusoption .= "----------- ";
}
elsif ( $status eq "Prospect" ) {
$viewstatusoption = "Prospect ";
$viewstatusoption .= "----------- ";
}
elsif ( $status eq "Expired" ) {
$viewstatusoption = "Expired ";
$viewstatusoption .= "----------- ";
}
elsif ( $status eq "DEAD" ) {
$viewstatusoption =
"Dead Deal (Not Closing) ";
$viewstatusoption .= "----------- ";
}
if ($listingclass) {
$viewclassoption =
"$listingclass ";
$viewclassoption .= "----------- ";
}
if ($addressdirection) {
$getaddressdirection =
"$addressdirection -- ";
}
else {
$getaddressdirection =
"None -- ";
}
if ($addressstreet) {
$getaddressstreet =
"$addressstreet ---------------- ";
}
print qq~
fill out the form below to create a new transaction
~;
}
&footer;
}
sub edit_transaction_do {
$INPUT{mlsnumber} =~ s/\"//gi;
$INPUT{mlsnumber} =~ s/\'//gi;
$Cook{agentid} =~ s/\"//gi;
$Cook{agentid} =~ s/\'//gi;
$INPUT{selleragent} =~ s/\"//gi;
$INPUT{selleragent} =~ s/\'//gi;
$INPUT{buyeragent} =~ s/\"//gi;
$INPUT{buyeragent} =~ s/\'//gi;
$INPUT{type} =~ s/\"//gi;
$INPUT{type} =~ s/\'//gi;
$INPUT{addressstreet} =~ s/\"//gi;
$INPUT{addressstreet} =~ s/\'//gi;
$INPUT{city} =~ s/\"//gi;
$INPUT{city} =~ s/\'//gi;
$INPUT{state} =~ s/\"//gi;
$INPUT{state} =~ s/\'//gi;
$INPUT{zip} =~ s/\"//gi;
$INPUT{zip} =~ s/\'//gi;
$INPUT{listingdate} =~ s/\"//gi;
$INPUT{listingdate} =~ s/\'//gi;
$INPUT{expiredate} =~ s/\"//gi;
$INPUT{expiredate} =~ s/\'//gi;
$INPUT{listingprice} =~ s/\"//gi;
$INPUT{listingprice} =~ s/\'//gi;
$INPUT{notes} =~ s/\"//gi;
$INPUT{notes} =~ s/\'//gi;
$INPUT{pendingdate} =~ s/\"//gi;
$INPUT{pendingdate} =~ s/\'//gi;
$INPUT{inspectionresponsedays} =~ s/\"//gi;
$INPUT{inspectionresponsedays} =~ s/\'//gi;
$INPUT{estimatedclosingdate} =~ s/\"//gi;
$INPUT{estimatedclosingdate} =~ s/\'//gi;
$INPUT{soldprice} =~ s/\"//gi;
$INPUT{soldprice} =~ s/\'//gi;
$INPUT{solddate} =~ s/\"//gi;
$INPUT{solddate} =~ s/\'//gi;
$INPUT{listingclass} =~ s/\"//gi;
$INPUT{listingclass} =~ s/\'//gi;
$INPUT{earnestmoneyreceived} =~ s/\"//gi;
$INPUT{earnestmoneyreceived} =~ s/\'//gi;
$INPUT{earnestmoneyheldat} =~ s/\"//gi;
$INPUT{earnestmoneyheldat} =~ s/\'//gi;
$INPUT{earnestmoneydollar} =~ s/\"//gi;
$INPUT{earnestmoneydollar} =~ s/\'//gi;
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;
## Save Transaction Info ##
@variables = (
$INPUT{mlsnumber}, $INPUT{selleragent},
$INPUT{sellercoagent}, $INPUT{buyeragent},
$INPUT{buyercoagent}, $INPUT{type},
$INPUT{status}, $INPUT{listingclass},
$INPUT{addressnumber}, $INPUT{addressdirection},
$INPUT{addressstreet}, $INPUT{city},
$INPUT{state}, $INPUT{zip},
$INPUT{listingdate}, $INPUT{expiredate},
$INPUT{listingprice}, $INPUT{showinginstructions},
$INPUT{notes}, $INPUT{pendingdate},
$INPUT{earnestmoneyreceived}, $INPUT{earnestmoneydollar},
$INPUT{earnestmoneyheldat}, $INPUT{inspectionresponsedays},
$INPUT{estimatedclosingdate}, $INPUT{soldprice},
$INPUT{solddate}, $INPUT{transid}
);
$sql =
"update trans_board set mlsnumber = ?, selleragent = ?, sellercoagent = ?, buyeragent = ?, buyercoagent = ?, type = ?, status = ?, listingclass = ?, addressnumber = ?, addressdirection = ?, addressstreet = ?, city = ?, state = ?, zip = ?, listingdate = ?, expiredate = ?, listingprice = ?, showinginstructions = ?, notes = ?, pendingdate = ?, earnestmoneyreceived = ?, earnestmoneydollar = ?, earnestmoneyheldat = ?, inspectionresponsedays = ?, estimatedclosingdate = ?, soldprice = ?, solddate = ? WHERE id = ?";
my $aasth = $dbh->do( $sql, undef, @variables );
## CHECK AND UPdate MLS Numbers ##
@mlsvariables = ( $INPUT{mlsnumber}, $INPUT{old_mls} );
$mls1sql =
"UPDATE trans_boardshowings set mlsnumber = ? where mlsnumber = ?";
$mls2sql =
"UPDATE trans_boardfeedback set mlsnumber = ? where mlsnumber = ?";
$mls3sql = "UPDATE hits set mlsnumber = ? where mlsnumber = ?";
$mls4sql = "UPDATE home_fav set mlsnumber = ? where mlsnumber = ?";
my $basth = $dbh->do( $mls1sql, undef, @mlsvariables );
my $casth = $dbh->do( $mls2sql, undef, @mlsvariables );
my $dasth = $dbh->do( $mls3sql, undef, @mlsvariables );
my $easth = $dbh->do( $mls4sql, undef, @mlsvariables );
&Log(
qq~Information Edited for Transaction: $INPUT{addressnumber} $INPUT{addressdirection} $INPUT{addressstreet}~
); # routine at the bottom of config.idx
print qq~
Making Changes to Datebase
Please wait, Processing Click Here .Delete Transaction -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
Really Delete $INPUT{addressdirection} $INPUT{addressnumber} $INPUT{addressstreet} Transaction? Yes or No [ Cancel ]
~;
&footer;
}
}
sub create_contact {
#####id,agent,firstname,lastname,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,notes
print qq~
Create New Contact -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
fill out the form below to create a new contact
~;
&footer;
}
sub create_contact_verify {
#####id,agent,firstname,lastname,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,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~
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 = (
$Cook{agentid}, $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 = '$Cook{agentid}' 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 Click Here .Making Changes to Datebase
Please wait, Processing Click Here .Inspection Information in Overview
Making Changes to Datebase
Please wait, Processing Click Here .
Type Company Rcvd Action
~;
$trcolor = "1";
$trcolor2 = "2";
while (
(
$inspectionid, $transid, $type, $company,
$contact, $phone, $fax, $dateordered,
$datereceived, $repairs, $responses, $notes
)
= $aasth->fetchrow_array()
)
{
$newtype = substr( $type, 0, 5 );
$newcompany = substr( $company, 0, 8 );
if ( $datereceived ne "0000-00-00" ) {
$datereceived = "Y ";
}
if ( $datereceived eq "0000-00-00" ) {
$datereceived = "No
$newtype $newcompany $datereceived
~;
$found = "yes";
}
unless ( $found eq "yes" ) {
print qq~
You may add inspections by clicking on the add button above!
~;
}
print qq~
~;
}
}
sub overview_inspections_view {
#id,inspectionid,type,company,contact,phone,fax,dateordered,datereceived,repairs,responses,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;
my $aasth =
$dbh->prepare(
"select inspectionid,transid,type,company,contact,phone,fax,dateordered,datereceived,repairs,responses,notes from trans_boardinspections WHERE inspectionid = '$INPUT{inspectionid}'"
);
$aasth->execute;
while (
(
$inspectionid, $transid, $type, $company,
$contact, $phone, $fax, $dateordered,
$datereceived, $repairs, $responses, $notes
)
= $aasth->fetchrow_array()
)
{
print qq~
Inspection Information in Overview
$type Inspection $company $contact Phone $phone Fax $faxReceived $datereceivedRepairs $repairsResponses $responsesNotes $notesInspection Information in Overview
$type ";
$gettype .= "--------- ";
print qq~
~;
}
}
elsif ( $INPUT{edit} eq "2" ) {
my $aasth =
$dbh->prepare(
"select inspectionid,transid,type,company,contact,phone,fax,dateordered,datereceived,repairs,responses,notes from trans_boardinspections WHERE inspectionid = '$INPUT{inspectionid}'"
);
$aasth->execute;
while (
(
$inspectionid, $transid, $type, $company,
$contact, $phone, $fax, $dateordered,
$datereceived, $repairs, $responses, $notes
)
= $aasth->fetchrow_array()
)
{
if ( $dateordered eq "0000-00-00" ) {
$dateordered = "";
}
if ( $datereceived eq "0000-00-00" ) {
$datereceived = "";
}
print qq~
~;
}
}
elsif ( $INPUT{edit} eq "3" ) {
$INPUT{type} =~ s/\"//gi;
$INPUT{type} =~ s/\'//gi;
$INPUT{company} =~ s/\"//gi;
$INPUT{company} =~ s/\'//gi;
$INPUT{contact} =~ s/\"//gi;
$INPUT{contact} =~ s/\'//gi;
$INPUT{phone} =~ s/\"//gi;
$INPUT{phone} =~ s/\'//gi;
$INPUT{fax} =~ s/\"//gi;
$INPUT{fax} =~ s/\'//gi;
$INPUT{dateordered} =~ s/\"//gi;
$INPUT{dateordered} =~ s/\'//gi;
$INPUT{datereceived} =~ s/\"//gi;
$INPUT{datereceived} =~ s/\'//gi;
$INPUT{repairs} =~ s/\"//gi;
$INPUT{repairs} =~ s/\'//gi;
$INPUT{responses} =~ s/\"//gi;
$INPUT{responses} =~ s/\'//gi;
$INPUT{notes} =~ s/\"//gi;
$INPUT{notes} =~ s/\'//gi;
@variables = (
$INPUT{type}, $INPUT{company}, $INPUT{contact},
$INPUT{phone}, $INPUT{fax}, $INPUT{dateordered},
$INPUT{datereceived}, $INPUT{repairs}, $INPUT{responses},
$INPUT{notes}, $INPUT{inspectionid}
);
$sql_query =
"update trans_boardinspections set type = ?, company = ?, contact = ?, phone = ?, fax = ?, dateordered = ?, datereceived = ?, repairs = ?, responses = ?, notes = ? where inspectionid = ?";
my $aasth = $dbh->do( $sql_query, undef, @variables );
print qq~
Making Changes to Datebase
Please wait, Processing Click Here .Making Changes to Datebase
Please wait, Processing Click Here .Edit ";
}
else {
$btntype =
"Add ";
}
print qq~
Titlework Information in Overview
Making Changes to Datebase
Please wait, Processing Click Here .
Titlework Type $type
$company $contact
Co Phone $phone
Fax $fax
Date Ordered $dateordered
Date Received $datereceived
Notes $notes
~;
$found = "yes";
}
unless ( $found eq "yes" ) {
print qq~
Titlework Information Has Not Been Entered Yet. Add Info
~;
}
}
print qq~
~;
}
sub overview_titlework_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 $aasth = $dbh->prepare(
"select id from trans_boardtitlework WHERE id = '$INPUT{transid}'");
$aasth->execute;
while ( ($id) = $aasth->fetchrow_array() ) {
$found = "yes";
}
unless ( $found ne "yes" ) {
$btntype =
"Edit ";
}
else {
$btntype =
"Add ";
}
print qq~
Titlework Information in Overview
Making Changes to Datebase
Please wait, Processing Click Here .Edit ";
}
else {
$btntype =
"Add ";
}
print qq~
Survey Information in Overview
Making Changes to Datebase
Please wait, Processing Click Here .
survey Type $type
$company $contact
Co Phone $phone
Fax $fax
Date Ordered $dateordered
Date Received $datereceived
Notes $notes
~;
$found = "yes";
}
unless ( $found eq "yes" ) {
print qq~
survey Information Has Not Been Entered Yet. Add Info
~;
}
}
print qq~
~;
}
sub overview_survey_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 $aasth = $dbh->prepare(
"select id from trans_boardsurvey WHERE id = '$INPUT{transid}'");
$aasth->execute;
while ( ($id) = $aasth->fetchrow_array() ) {
$found = "yes";
}
unless ( $found ne "yes" ) {
$btntype =
"Edit ";
}
else {
$btntype =
"Add ";
}
print qq~
Survey Information in Overview
Making Changes to Datebase
Please wait, Processing Click Here .
~;
$show_icon{doc} =
qq~
~;
$show_icon{jpg} =
qq~
~;
$show_icon{efx} =
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{transid}' and matchcat = 't' 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} 
$b_firstname$b_spouse $b_lastname
