~;
if ($type eq 'BSP' or $type eq 'Listing' or $type eq 'SP') {
print qq~
Showing Information
Print Showing Report | Add Showing
Showing Instructions: $showinginstructions
~;
}
print qq~
~;
}
print qq~
~;
&footer;
}
sub overview_tasks {
use DBI;
$dsn = "DBI:mysql:database=$d_name;host=localhost";
$dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
### ACTION PLANS ####
if ($INPUT{apply} eq "yes") {
#do the triggers
### ADD CODE TO CHECK IF ITS A CONTACT OR PROSPECT
my $asth = $dbh->prepare("select * from trans_boardtask_triggers where template_id = '$INPUT{template_id}' AND idlink = '$INPUT{idlink}' AND task_type = 'Transaction' LIMIT 0,1");
$asth->execute;
while ($data_ref = $asth->fetchrow_hashref()) {
%task_templates = %$data_ref;
$temp_found = "yes";
}
if ($temp_found eq "yes") {
print qq~CANNOT APPLY THIS TEMPLATE: This template was already applied and stopped! If you plan to re-apply please delete completed template items first!~;
}
else {
if ($INPUT{type} eq "transaction") {
my $asth = $dbh->prepare("select listingdate,pendingdate from trans_board WHERE id = '$INPUT{idlink}'");
$asth->execute;
while ($data_ref = $asth->fetchrow_hashref()) {
%dates = %$data_ref;
$listingdate = "$dates{listingdate}";
$pendingdate = "$dates{pendingdate}";
}
}
if ($INPUT{date_type} eq "Now") {
$usedate = "now()";
}
elsif ($INPUT{date_type} eq "Listing") {
$usedate = "'$listingdate'";
}
elsif ($INPUT{date_type} eq "Pending") {
$usedate = "'$pendingdate'";
}
### 1. SELECT DATA FROM AGENT TASK TEMPLATE
my $asth = $dbh->prepare("select * from trans_boardtask_templates where id = '$INPUT{template_id}'");
$asth->execute;
while ($data_ref = $asth->fetchrow_hashref()) {
%task_templates = %$data_ref;
### 2. LOOP THROUGH agent_task_ids
@agent_trigger_tasks = split(/\,/,$task_templates{agent_task_ids});
foreach $agent_task_item (@agent_trigger_tasks) {
### 3. OPEN THE DATA FOR EACH ITEM AND TRIGGER
my $bsth = $dbh->prepare("select * from trans_boardtask_agents where id = '$agent_task_item'");
$bsth->execute;
while ($data_ref = $bsth->fetchrow_hashref()) {
%task_agents = %$data_ref;
### 4. CALCULATE TRIGGER DATE
my $csth = $dbh->prepare("SELECT DATE_FORMAT(DATE_ADD($usedate, INTERVAL $task_agents{num_days} DAY), '%Y-%m-%d')");
$csth->execute;
while (($tempdate) = $csth->fetchrow_array()) {
### 5. ENTER INTO TRIGGER DATABASE!
@variables = ($INPUT{idlink},$INPUT{template_id},$Cook{agentid},$task_agents{task_type},$task_agents{title},$task_agents{activity},$task_agents{id},$tempdate,$task_agents{message});
$sql_query = "INSERT INTO trans_boardtask_triggers values ('',?,?,?,?,?,?,?,?,'','','',?)";
my $dsth = $dbh->do($sql_query, undef, @variables);
}
}
$message_status = "Successfully Applied $task_templates{template_name}! ";
}
}
}
}
print qq~
Action Plan Tasks Overview
~;
if($INPUT{do} eq "Apply") {
my $asth = $dbh->prepare("select * from trans_boardtask_templates where agent_id = '$Cook{agentid}' AND task_type = '$INPUT{type}'");
$asth->execute;
while ($data_ref = $asth->fetchrow_hashref()) {
%task_templates = %$data_ref;
$build_template_dropdowns .= "";
$foundtemplate = "yes";
}
print qq~
~;
}
elsif ($INPUT{do} eq "CreateItem") {
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 $asth = $dbh->prepare("select * from trans_boardtask_templates where agent_id = '$Cook{agentid}' AND task_type = '$INPUT{type}'");
$asth->execute;
while ($data_ref = $asth->fetchrow_hashref()) {
%task_templates = %$data_ref;
$build_template_dropdowns .= "";
$foundtemplate = "yes";
}
my $gbasth = $dbh->prepare("select now()");
$gbasth->execute;
$today_is_datetime = $gbasth->fetchrow_array();
($today_date,$today_time) = split(/ /,$today_is_datetime);
($t_year,$t_month,$t_day) = split(/\-/,$today_date);
print qq~
~;
}
elsif ($INPUT{do} eq "Create_TaskItem") {
### 1. ENTER INTO TRIGGER DATABASE!
@variables = ($INPUT{idlink},$INPUT{template_id},$Cook{agentid},$INPUT{type},$INPUT{title},$INPUT{activity},$INPUT{task_date},$INPUT{notes});
$sql_query = "INSERT INTO trans_boardtask_triggers values ('',?,?,?,?,?,?,'',?,'','',?,'')";
my $dsth = $dbh->do($sql_query, undef, @variables);
### NOTIFY ORRTEAM
# FIND TYPE, ADDRESS OR NAME
my $basth = $dbh->prepare("select id,idlink,task_type,title,DATE_FORMAT(date_trigger, '%b %D, %Y'),completed_by,notes from trans_boardtask_triggers ORDER BY id desc limit 0,1");
$basth->execute;
while (($task_triggers_id,$task_triggers_idlink,$task_triggers_task_type,$task_triggers_title,$task_triggers_date_trigger,$task_triggers_completed_by,$task_triggers_notes) = $basth->fetchrow_array()) {
#FIND THE ADDRESS OR NAME
if ($task_triggers_task_type eq "Transaction") {
my $tasth = $dbh->prepare("select addressnumber,addressdirection,addressstreet,city,state,zip from trans_board where id = '$task_triggers_idlink'");
$tasth->execute;
while (($trans_addressnumber,$trans_addressdirection,$trans_addressstreet,$trans_city,$trans_state,$trans_zip) = $tasth->fetchrow_array()) {
$commonname = "$trans_addressnumber $trans_addressdirection $trans_addressstreet, $trans_city";
}
open(MAIL,"|/usr/sbin/sendmail -t");
print MAIL "To: info\@orrhomes.com\n";
print MAIL "From: Tasks\@ORRHomes.com\n";
print MAIL "Subject: New Task Created \"$task_triggers_title\" For $commonname due $task_triggers_date_trigger\n";
print MAIL "Content-type: text/html\n\n";
print MAIL qq~
The ORR Home Selling Team
A new task has been created!
$task_triggers_title For $commonname Due $task_triggers_date_trigger Notes $INPUT{notes}
Task report and grid can be viewed at: http://Connect.EagleSold.com.
~;
close(MAIL);
}
}
print qq~
Applied TaskSuccessfully Added Task Item!
~;
}
elsif ($INPUT{do} eq "MarkDone") {
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 = ($generateaddedby,$INPUT{id});
$sql_query = "update trans_boardtask_triggers set date_completed = now(), completed_by = ? where id = ?";
my $aasth = $dbh->do($sql_query, undef, @variables);
### NOTIFY ORRTEAM
# FIND TYPE, ADDRESS OR NAME
my $basth = $dbh->prepare("select id,idlink,task_type,title,DATE_FORMAT(date_completed, '%b %D, %Y at %h\:%i%p'),completed_by,notes from trans_boardtask_triggers where id = '$INPUT{id}'");
$basth->execute;
while (($task_triggers_id,$task_triggers_idlink,$task_triggers_task_type,$task_triggers_title,$task_triggers_date_completed,$task_triggers_completed_by,$task_triggers_notes) = $basth->fetchrow_array()) {
#FIND THE ADDRESS OR NAME
if ($task_triggers_task_type eq "Transaction") {
my $tasth = $dbh->prepare("select addressnumber,addressdirection,addressstreet,city,state,zip from trans_board where id = '$task_triggers_idlink'");
$tasth->execute;
while (($trans_addressnumber,$trans_addressdirection,$trans_addressstreet,$trans_city,$trans_state,$trans_zip) = $tasth->fetchrow_array()) {
$commonname = "$trans_addressnumber $trans_addressdirection $trans_addressstreet, $trans_city";
}
open(MAIL,"|/usr/sbin/sendmail -t");
print MAIL "To: info\@orrhomes.com\n";
print MAIL "From: Tasks\@ORRHomes.com\n";
print MAIL "Subject: Task Completed \"$task_triggers_title\" For $commonname by $task_triggers_completed_by\n";
print MAIL "Content-type: text/html\n\n";
print MAIL qq~
The ORR Home Selling Team
A Task has been completed!
$task_triggers_title For $commonname By $task_triggers_completed_by On $task_triggers_date_completed. Notes $task_triggers_notes
Task report and grid can be viewed at: http://Connect.EagleSold.com.
~;
close(MAIL);
}
}
print qq~
Making Changes to Datebase
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
elsif ($INPUT{do} eq "DeleteTask") {
if ($INPUT{delete} eq "yes") {
#DELETE CODE
@variables = ($INPUT{idlink},$INPUT{template_id});
$sql_query = "DELETE FROM trans_boardtask_triggers WHERE id = '$INPUT{id}'";
my $aasth = $dbh->do($sql_query, undef, @variables);
print qq~
Making Changes to Datebase
Removing Task You will be redirected to when finished. If not Click Here.
~;
}
else {
print qq~
Delete
~;
}
}
elsif ($INPUT{do} eq "SaveEditTask") {
@variables = ($INPUT{title},$INPUT{activity},$INPUT{task_date},$INPUT{task_date_completed},$INPUT{completed_by},$INPUT{template_id},$INPUT{notes},$INPUT{id});
$sql_query = "update trans_boardtask_triggers set title = ?, activity = ?, date_trigger = ?, date_completed = ?, completed_by = ?, template_id = ?, 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.
~;
}
elsif ($INPUT{do} eq "Edit_Task") {
#asdf
my $basth = $dbh->prepare("select id,idlink,template_id,task_type,title,activity,agent_task_id,date_trigger,date_completed,completed_by,notes from trans_boardtask_triggers where id = '$INPUT{id}'");
$basth->execute;
while (($task_triggers_id,$task_triggers_idlink,$task_triggers_template_id,$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()) {
$pull_activity = "";
if ($task_triggers_date_completed eq "0000-00-00 00:00:00") { $task_triggers_date_completed = ""; }
$pull_template_id = "";
my $asth = $dbh->prepare("select * from trans_boardtask_templates where agent_id = '$Cook{agentid}' AND task_type = '$task_triggers_task_type'");
$asth->execute;
while ($data_ref = $asth->fetchrow_hashref()) {
%task_templates = %$data_ref;
$task_templates{template_name} = substr($task_templates{template_name},0,31);
$build_template_dropdowns .= "";
$foundtemplate = "yes";
}
print qq~
~;
}
}
elsif ($INPUT{do} eq "SaveNotes") {
@variables = ($INPUT{notes},$INPUT{id});
$sql_query = "update trans_boardtask_triggers set 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.
~;
}
elsif ($INPUT{do} eq "Notes") {
my $basth = $dbh->prepare("select id,idlink,task_type,title,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 id = '$INPUT{id}'");
$basth->execute;
while (($task_triggers_id,$task_triggers_idlink,$task_triggers_task_type,$task_triggers_title,$task_triggers_agent_task_id,$task_triggers_date_trigger,$task_triggers_date_completed,$task_triggers_completed_by,$task_triggers_notes) = $basth->fetchrow_array()) {
print qq~
~;
}
}
elsif ($INPUT{do} eq "SaveNotes") {
@variables = ($INPUT{notes},$INPUT{id});
$sql_query = "update trans_boardtask_triggers set 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.
~;
}
elsif ($INPUT{do} eq "Stop") {
@variables = ($INPUT{idlink},$INPUT{template_id});
$sql_query = "DELETE FROM trans_boardtask_triggers WHERE idlink = '$INPUT{idlink}' AND template_id = '$INPUT{template_id}' AND date_completed = '0000-00-00 00:00:00'";
my $aasth = $dbh->do($sql_query, undef, @variables);
$sql_query2 = "UPDATE trans_boardtask_triggers SET template_id = '0' WHERE idlink = '$INPUT{idlink}' AND template_id = '$INPUT{template_id}'";
my $basth = $dbh->do($sql_query2, undef, @variables);
print qq~
Making Changes to Datebase
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
elsif ($INPUT{do} eq "Delete") {
@variables = ($INPUT{idlink},$INPUT{template_id});
$sql_query = "DELETE FROM trans_boardtask_triggers WHERE idlink = ? AND template_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.
~;
}
elsif ($INPUT{do} eq "EditLetter") {
my $basth = $dbh->prepare("select id,idlink,task_type,title,agent_task_id,DATE_FORMAT(date_trigger, '%b %D, %Y'),DATE_FORMAT(date_completed, '%b %D, %Y at %h\:%i%p'),completed_by,notes,message from trans_boardtask_triggers where id = '$INPUT{task_id}'");
$basth->execute;
while (($task_triggers_id,$task_triggers_idlink,$task_triggers_task_type,$task_triggers_title,$task_triggers_agent_task_id,$task_triggers_date_trigger,$task_triggers_date_completed,$task_triggers_completed_by,$task_triggers_notes,$task_triggers_message) = $basth->fetchrow_array()) {
print qq~
~;
}
}
elsif ($INPUT{do} eq "EditLetterDo") {
@variables = ($INPUT{message},$INPUT{id});
$sql_query = "update trans_boardtask_triggers set message = ? where id = ?";
my $aasth = $dbh->do($sql_query, undef, @variables);
print qq~
~;
}
else {
### 2. FIND TASKS DUE TODAY OR OVERDUE!
my $ssth = $dbh->prepare("select id,idlink,template_id from trans_boardtask_triggers where idlink = '$INPUT{idlink}' group by template_id order by id DESC");
$ssth->execute;
while (($stask_triggers_id,$stask_triggers_idlink,$stask_triggers_template_id) = $ssth->fetchrow_array()) {
my $tsth = $dbh->prepare("select id,template_name from trans_boardtask_templates where id = '$stask_triggers_template_id'");
$tsth->execute;
while (($stask_template_id,$stask_template_name) = $tsth->fetchrow_array()) {
$display_task_list .=qq~
$stask_template_name
~;
}
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 = " (Note: $task_triggers_notes)";}
if ($task_triggers_activity eq "Letter") {
$task_triggers_activityl = " [ Print Letter | Edit Letter ]";
}
elsif ($task_triggers_activity eq "E-Mail") {
$task_triggers_activityl = " [ Send E-Mail | Edit E-Mail]";
}
elsif ($task_triggers_activity eq "Phone Call") {
$task_triggers_activityl = " [ Send E-Mail to Call System | Edit MSG ]";
}
else {
$task_triggers_activityl = "";
}
$display_task_list .=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
~;
my $bcasth = $dbh->prepare("select COUNT(id) from emailer_templates where type = 'agent' AND accessid = '$Cook{agentid}'");
$bcasth->execute;
while (($idcount) = $bcasth->fetchrow_array()) {
$counttemp = "$idcount";
}
print qq~
We found $counttemp agent email templates for you. You may choose office or agent templates below to load into email now!
~;
my $acasth = $dbh->prepare("select id,name,subject,template from emailer_templates where type = 'agent' AND accessid = '$Cook{agentid}' OR id = '1' ORDER BY id ASC");
$acasth->execute;
while (($id,$name,$subject,$template) = $acasth->fetchrow_array()) {
print qq~
$name --
~;
}
print qq~
~;
&footer;
}
sub directory_view {
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,type,firstname,lastname,agent1type,agent1phone,agent2type,agent2phone,agent3type,agent3phone,agentfax,email,company,coaddress,cocity,costate,cozip,cophone from trans_boarddirectory WHERE id = '$INPUT{directoryid}'");
$basth->execute;
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~
~;
&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 .= "";
}
print qq~
Company Directory -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
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~
You may click on the first letter in the alphabet above that corresponds with your contacts lastname to search your contacts.
~;
}
}
sub overview_contacts_smallaz {
#id,agent,type,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~
Contacts Small A-ZSEARCH USERS LASTNAME BY
~;
my $basth = $dbh->prepare("select id,agent,type,firstname,lastname from trans_boardcontact WHERE agent = '$Cook{agentid}' 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_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{transid},$generateaddedby,$INPUT{notes},$INPUT{viewable});
$sql_query = "INSERT INTO trans_boardnotes 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{address}\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{address} by $generateaddedby.
Note can also be viewed at: http://Connect.EagleSold.com.
~;
close(MAIL);
}
}
&Log(qq~Note Added For Transaction: $INPUT{address} - $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_boardnotes WHERE noteid = ?";
my $aasth = $dbh->do($sql_query, undef, @variables);
&Log(qq~Note Deleted for Transaction: $INPUT{transid}~); # 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,transid,DATE_FORMAT(datetime, '%b %D, %Y at %h\:%i%p'),addedby,note from trans_boardnotes WHERE transid = '$INPUT{transid}' ORDER by datetime DESC");
$basth->execute;
print qq~
Notes
~;
if ($type eq 'BSP' or $type eq 'Listing' or $type eq 'SP') {
print qq~
Showing Information
Showing Instructions: $showinginstructions
~;
}
if ($type eq 'BSP' or $type eq 'Listing' or $type eq 'SP') {
print qq~
Listing Prospects
AD Call 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
Mortgage Information
$btntype
~;
if ($INPUT{do} eq "1") {
@variables = ($INPUT{finalapprovaldate},$INPUT{transid});
$sql_query = "update trans_boardmortgage set finalapproval = ? 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.
~;
}
else {
print qq~
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
Mortgage Information
$btntype
~;
if ($INPUT{edit} eq "1") {
my $aasth = $dbh->prepare("select id,loantype,company,phone,fax,loanofficer,lophone,processor,finalapproval,notes from trans_boardmortgage WHERE id = '$INPUT{transid}'");
$aasth->execute;
while (($id,$loantype,$company,$phone,$fax,$loanofficer,$lophone,$processor,$finalapproval,$notes) = $aasth->fetchrow_array()) {
print qq~
Step 1 of 3
Company
Loan Officer
Co Phone
Co Fax
~;
}
}
elsif ($INPUT{edit} eq "2") {
my $aasth = $dbh->prepare("select id,loantype,company,phone,fax,loanofficer,lophone,processor,finalapproval,notes from trans_boardmortgage WHERE id = '$INPUT{transid}'");
$aasth->execute;
while (($id,$loantype,$company,$phone,$fax,$loanofficer,$lophone,$processor,$finalapproval,$notes) = $aasth->fetchrow_array()) {
print qq~
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
else {
my $aasth = $dbh->prepare("select id,loantype,company,phone,fax,loanofficer,lophone,processor,finalapproval,notes from trans_boardmortgage WHERE id = '$INPUT{transid}'");
$aasth->execute;
while (($id,$loantype,$company,$phone,$fax,$loanofficer,$lophone,$processor,$finalapproval,$notes) = $aasth->fetchrow_array()) {
if ($finalapproval eq "0000-00-00") {
$finalapproval = "[ 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 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
Mortgage Information
$btntype
~;
if ($INPUT{add} eq "1") {
print qq~
Step 1 of 3
Company
Loan Officer
Co Phone
Co Fax
~;
}
elsif ($INPUT{add} eq "2") {
print qq~
Step 2 of 3
Lo Phone
Processor
Loan Type
Notes
~;
}
elsif ($INPUT{add} eq "3") {
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{loantype},$INPUT{company},$INPUT{phone},$INPUT{fax},$INPUT{loanofficer},$INPUT{lophone},$INPUT{processor},$INPUT{notes});
$sql_query = "INSERT INTO trans_boardmortgage values (?,?,?,?,?,?,?,?,'',?)";
my $aasth = $dbh->do($sql_query, undef, @variables);
print qq~
Successfully Entered!
~;
}
else {
my $aasth = $dbh->prepare("select id,loantype,company,phone,fax,loanofficer,lophone,processor,finalapproval,notes from trans_boardmortgage WHERE id = '$INPUT{transid}'");
$aasth->execute;
while (($id,$loantype,$company,$phone,$fax,$loanofficer,$lophone,$processor,$finalapproval,$notes) = $aasth->fetchrow_array()) {
if ($finalapproval eq "0000-00-00") {
$finalapproval = "[ 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~
My ORRTEAM Transactions Manager --The ORR Home Selling Team - Connect.ORRHomes.com
~;
&header;
print qq~
fill out the form below to create a new transaction
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 You will be redirected to when finished. If not Click Here.
~;
}
sub unassign_contact {
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});
$sql_query = "DELETE FROM trans_boardtranstocontact WHERE transid = ? AND contactid = ?";
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 assign_contact {
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;
$find = $INPUT{find};
unless ($INPUT{find}) {
$find = "-";
}
print qq~
Assign Contact To Transaction -- The ORR Home Selling Team - Connect.ORRHomes.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.
Search your contacts by Lastname AllA |
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
~;
my $basth = $dbh->prepare("select id,agent,type,firstname,lastname,spouse from trans_boardcontact WHERE agent = '$Cook{agentid}' AND lastname LIKE '$find%' ORDER by lastname ASC");
$basth->execute;
while (($id,$agent,$type,$firstname,$lastname,$spouse) = $basth->fetchrow_array()) {
if ($spouse ne "") {
$spouse = " & $spouse ";
}
else {
$spouse = "";
}
print qq~
$lastname, $firstname$spouse [ Link as $INPUT{address} $INPUT{contact_type} ]
~;
$found = "yes";
}
unless ($found eq "yes") {
print qq~
No Contacts Found, Click on the first letter in the alphabet above that corresponds with your contacts lastname.
~;
}
print qq~
~;
#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 -- The ORR Home Selling Team - Connect.ORRHomes.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 = "";
$viewtypeoptionclass .= "";
}
elsif ($listingclass eq "Commercial") {
$viewtypeoptionclass = "";
$viewtypeoptionclass .= "";
}
elsif ($listingclass eq "Investment") {
$viewtypeoptionclass = "";
$viewtypeoptionclass .= "";
}
elsif ($listingclass eq "LotsLand") {
$viewtypeoptionclass = "";
$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 = "";
}
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 = "";
}
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 = "";
}
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 = "";
}
if ($type eq "Listing") {
$viewtypeoption = "";
$viewtypeoption .= "";
}
elsif ($type eq "BP") {
$viewtypeoption = "";
$viewtypeoption .= "";
}
elsif ($type eq "BSP") {
$viewtypeoption = "";
$viewtypeoption .= "";
}
if ($status eq "CLSD") {
$viewstatusoption = "";
$viewstatusoption .= "";
}
elsif ($status eq "WTHD") {
$viewstatusoption = "";
$viewstatusoption .= "";
}
elsif ($status eq "Active") {
$viewstatusoption = "";
$viewstatusoption .= "";
}
elsif ($status eq "Pending") {
$viewstatusoption = "";
$viewstatusoption .= "";
}
elsif ($status eq "Prospect") {
$viewstatusoption = "";
$viewstatusoption .= "";
}
elsif ($status eq "Expired") {
$viewstatusoption = "";
$viewstatusoption .= "";
}
elsif ($status eq "DEAD") {
$viewstatusoption = "";
$viewstatusoption .= "";
}
if ($listingclass) {
$viewclassoption = "";
$viewclassoption .= "";
}
if ($addressdirection) {
$getaddressdirection = "";
}
else {
$getaddressdirection = "";
}
if ($addressstreet) {
$getaddressstreet = "";
}
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 = ?";
$mls5sql = "UPDATE trans_boardtranstoprospecting 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);
my $fasth = $dbh->do($mls5sql, 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 You will be redirected to when finished. If not Click Here.
~;
}
sub delete_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;
if ($INPUT{do} eq "yes") {
my $aasth = $dbh->do("DELETE FROM trans_board where id = '$INPUT{transid}'");
my $basth = $dbh->do("DELETE FROM trans_boardinspections where id = '$INPUT{transid}'");
my $casth = $dbh->do("DELETE FROM trans_boardmortgage where id = '$INPUT{transid}'");
my $dasth = $dbh->do("DELETE FROM trans_boardnotes where id = '$INPUT{transid}'");
my $easth = $dbh->do("DELETE FROM trans_boardsurvey where id = '$INPUT{transid}'");
my $fasth = $dbh->do("DELETE FROM trans_boardtitlework where id = '$INPUT{transid}'");
$status = "Successfully removed transaction,inspections,mortgage,notes,survey, and titlework info from database!";
&main;
exit 0;
}
else {
print qq~
Delete Transaction -- Eagle Real Estate, Inc. - Connect.EagleSold.com
~;
&header;
print qq~
Really Delete $INPUT{addressdirection} $INPUT{addressnumber} $INPUT{addressstreet} Transaction?
are you sure you want to remove? Yes or No [ Cancel ]
~;
print qq~
~;
&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 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 overview_inspections {
#inspectionid,transid,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 transid = '$INPUT{transid}'");
$aasth->execute;
print qq~
Inspection Information in Overview
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
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
elsif ($INPUT{delete} eq "1") {
my $aasth = $dbh->do("DELETE FROM trans_boardinspections where inspectionid = '$INPUT{inspectionid}'");
print qq~
Making Changes to Datebase
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
print qq~
~;
}
sub overview_titlework {
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
Titlework Information
$btntype
~;
if ($INPUT{add} eq "1") {
print qq~
Step 1 of 3
Company
Contact
Co Phone
Co Fax
~;
}
elsif ($INPUT{add} eq "2") {
print qq~
Step 2 of 3
Titlework Type
Date Ordered
Date Received
Notes
~;
}
elsif ($INPUT{add} eq "3") {
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;
##id,type,company,contact,phone,fax,dateordered,datereceived,notes
@variables = ($INPUT{transid},$INPUT{type},$INPUT{company},$INPUT{contact},$INPUT{phone},$INPUT{fax},$INPUT{dateordered},$INPUT{datereceived},$INPUT{notes});
$sql_query = "INSERT INTO trans_boardtitlework values (?,?,?,?,?,?,?,?,?)";
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.
~;
}
else {
my $aasth = $dbh->prepare("select id,type,company,contact,phone,fax,dateordered,datereceived,notes from trans_boardtitlework WHERE id = '$INPUT{transid}'");
$aasth->execute;
while (($id,$type,$company,$contact,$phone,$fax,$dateordered,$datereceived,$notes) = $aasth->fetchrow_array()) {
print qq~
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
Titlework Information
$btntype
~;
if ($INPUT{edit} eq "1") {
my $aasth = $dbh->prepare("select id,type,company,contact,phone,fax,dateordered,datereceived,notes from trans_boardtitlework WHERE id = '$INPUT{transid}'");
$aasth->execute;
while (($id,$type,$company,$contact,$phone,$fax,$dateordered,$datereceived,$notes) = $aasth->fetchrow_array()) {
print qq~
Step 1 of 3
Company
Contact
Co Phone
Co Fax
~;
}
}
elsif ($INPUT{edit} eq "2") {
my $aasth = $dbh->prepare("select id,type,company,contact,phone,fax,dateordered,datereceived,notes from trans_boardtitlework WHERE id = '$INPUT{transid}'");
$aasth->execute;
while (($id,$type,$company,$contact,$phone,$fax,$dateordered,$datereceived,$notes) = $aasth->fetchrow_array()) {
if ($dateordered eq "0000-00-00") {
$dateordered = "";
}
if ($datereceived eq "0000-00-00") {
$datereceived = "";
}
print qq~
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
else {
my $aasth = $dbh->prepare("select id,type,company,contact,phone,fax,dateordered,datereceived,notes from trans_boardtitlework WHERE id = '$INPUT{transid}'");
$aasth->execute;
while (($id,$type,$company,$contact,$phone,$fax,$dateordered,$datereceived,$notes) = $aasth->fetchrow_array()) {}
}
print qq~
~;
}
sub overview_survey {
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
Survey Information
$btntype
~;
if ($INPUT{add} eq "1") {
print qq~
Step 1 of 3
Company
Contact
Co Phone
Co Fax
~;
}
elsif ($INPUT{add} eq "2") {
print qq~
Step 2 of 3
survey Type
Date Ordered
Date Received
Notes
~;
}
elsif ($INPUT{add} eq "3") {
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;
##id,type,company,contact,phone,fax,dateordered,datereceived,notes
@variables = ($INPUT{transid},$INPUT{type},$INPUT{company},$INPUT{contact},$INPUT{phone},$INPUT{fax},$INPUT{dateordered},$INPUT{datereceived},$INPUT{notes});
$sql_query = "INSERT INTO trans_boardsurvey values (?,?,?,?,?,?,?,?,?)";
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.
~;
}
else {
my $aasth = $dbh->prepare("select id,type,company,contact,phone,fax,dateordered,datereceived,notes from trans_boardsurvey WHERE id = '$INPUT{transid}'");
$aasth->execute;
while (($id,$type,$company,$contact,$phone,$fax,$dateordered,$datereceived,$notes) = $aasth->fetchrow_array()) {
print qq~
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
Survey Information
$btntype
~;
if ($INPUT{edit} eq "1") {
my $aasth = $dbh->prepare("select id,type,company,contact,phone,fax,dateordered,datereceived,notes from trans_boardsurvey WHERE id = '$INPUT{transid}'");
$aasth->execute;
while (($id,$type,$company,$contact,$phone,$fax,$dateordered,$datereceived,$notes) = $aasth->fetchrow_array()) {
print qq~
Step 1 of 3
Company
Contact
Co Phone
Co Fax
~;
}
}
elsif ($INPUT{edit} eq "2") {
my $aasth = $dbh->prepare("select id,type,company,contact,phone,fax,dateordered,datereceived,notes from trans_boardsurvey WHERE id = '$INPUT{transid}'");
$aasth->execute;
while (($id,$type,$company,$contact,$phone,$fax,$dateordered,$datereceived,$notes) = $aasth->fetchrow_array()) {
if ($dateordered eq "0000-00-00") {
$dateordered = "";
}
if ($datereceived eq "0000-00-00") {
$datereceived = "";
}
print qq~
~;
$show_icon{doc} = qq~
~;
$show_icon{jpg} = qq~
~;
$show_icon{gif} = qq~
