~;
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_showings {
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;
#showingid,mlsnumber,status,enteredby,showingagent,appointmentdate,timerange1,timerange2,confirmeddatetime,confirmedwith,feedback
print qq~
Mortgage Information in Overview
~;
if ($INPUT{do} eq "showdetails") {
my $aasth = $dbh->prepare("select showingid,mlsnumber,status,enteredby,showingagent,appointmentdate,timerange1,timerange2,confirmeddatetime,confirmedwith,feedback from trans_boardshowings where showingid = '$INPUT{showingid}'");
$aasth->execute;
while (($showingid,$mlsnumber,$status,$enteredby,$showingagent,$appointmentdate,$timerange1,$timerange2,$confirmeddatetime,$confirmedwith,$feedback) = $aasth->fetchrow_array()) {
print qq~
Return To Showing List
Entered By $enteredby Date $appointmentdate Showing Time $timerange1 - $timerange2
Status $status Confirmed $confirmeddatetime With $confirmedwith Agent
~;
my $baasth = $dbh->prepare("select firstname,lastname from trans_boarddirectory where id = '$showingagent'");
$baasth->execute;
while (($firstname,$lastname) = $baasth->fetchrow_array()) {
print qq~
$firstname $lastname
~;
}
print qq~
Feedback from Showing Agent: $feedback
~;
}
}
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,feedback 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,$feedback) = $aasth->fetchrow_array()) {
#$showingid,$mlsnumber,$status,$enteredby,$showingagent,$appointmentdate,$timerange1,$timerange2,$confirmeddatetime,$confirmedwith,$feedback
if ($trcolor eq $trcolor2) {
$trcolor = "1";
$setcolor = "#FFFF99";
}
else {
$setcolor = "#FFFFFF";
$trcolor++;
}
if ($feedback eq "None") {
$feedback = "No";
}
else {
$feedback = "Yes";
}
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~
~;
}
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 = '$INPUT{agent}'");
$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 = '$INPUT{agent}' 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 -- ERA Eagle Real Estate MuncieMLS.com
~;
&header;
if ($INPUT{searchtype} eq "company") {
$buildlink = "transactions.idx?action=directory&company=$INPUT{company}&agent=$INPUT{agent}";
}
elsif ($INPUT{searchtype} eq "contact") {
$buildlink = "transactions.idx?action=directory&contact=$INPUT{contact}&agent=$INPUT{agent}";
}
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 -- ERA Eagle Real Estate MuncieMLS.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 runsql {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
my $aaasth = $dbh->prepare("select agentid,officeid,lastname,firstname,phone from mlsusers");
$aaasth->execute;
while (($agentid,$officeid,$lastname,$firstname,$agentphone) = $aaasth->fetchrow_array()) {
my $baasth = $dbh->prepare("select officeid,officename,street,city,state,zip,phone from organizations where officeid = '$officeid'");
$baasth->execute;
while (($coofficeid,$officename,$costreet,$cocity,$costate,$cozip,$cophone) = $baasth->fetchrow_array()) {
### id,type,firstname,lastname,agent1type,agent1phone,agent2type,agent2phone,agent3type,agent3phone,agentfax,email,company,coaddress,cocity,costate,cozip,cophone ##
@variables = ($firstname,$lastname,$agentphone,$officename,$costreet,$cocity,$costate,$cozip,$cophone);
$sql_query = "INSERT INTO trans_boarddirectory values ('','mls',?,?,'',?,'','','','','','',?,?,?,?,?,?)";
my $vvaasth = $dbh->do($sql_query, undef, @variables);
print qq~
--- > Imported $firstname $lastname,$agentphone $coofficeid,$officename,$costreet,$cocity,$costate,$cozip,$cophone
~;
}
}
}
sub overview_contact_edit {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
my $aaasth = $dbh->prepare("select id,agent,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,email_block,notes from trans_boardcontact WHERE id = '$INPUT{contactid}'");
$aaasth->execute;
while (($id,$agent,$firstname,$lastname,$address,$spouse,$city,$state,$zip,$phone1type,$phone1number,$phone2type,$phone2number,$phone3type,$phone3number,$faxnumber,$email,$email_block,$notes) = $aaasth->fetchrow_array()) {
$getstate = "";
$getstate .= "";
$getphone1type = "";
$getphone1type .= "";
$getphone2type = "";
$getphone2type .= "";
$getphone3type = "";
$getphone3type .= "";
$getemail_block = "";
$getemail_block .= "";
print qq~
Edit Contact -- ERA Eagle Real Estate MuncieMLS.com
~;
&header;
print qq~
Edit the information below to edit your contact
~;
}
&footer;
}
sub overview_contact_doedit {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
@variables = ($INPUT{firstname},$INPUT{lastname},$INPUT{address},$INPUT{spouse},$INPUT{city},$INPUT{state},$INPUT{zip},$INPUT{phone1type},$INPUT{phone1number},$INPUT{phone2type},$INPUT{phone2number},$INPUT{phone3type},$INPUT{phone3number},$INPUT{faxnumber},$INPUT{email},$INPUT{email_block},$INPUT{notes},$INPUT{contactid});
$sql_query = "update trans_boardcontact set firstname = ?, lastname = ?, address = ?, spouse = ?, city = ?, state = ?, zip = ?, phone1type = ?, phone1number = ?, phone2type = ?, phone2number = ?, phone3type = ?, phone3number = ?, faxnumber = ?, email = ?, email_block = ?, notes = ? where id = ?";
my $aasth = $dbh->do($sql_query, undef, @variables);
print qq~
Making Changes to Datebase
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
sub overview_contact_delete {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
if ($INPUT{do} eq "yes") {
@cvariables = ($INPUT{contactid});
$csql_query = "DELETE FROM trans_boardcontact WHERE id = ?";
my $caasth = $dbh->do($csql_query, undef, @cvariables);
@variables = ($INPUT{contactid});
$sql_query = "DELETE FROM trans_boardtranstocontact WHERE 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.
~;
}
else {
print qq~
Edit Transaction -- ERA Eagle Real Estate MuncieMLS.com
~;
&header;
print qq~
~;
####### GET TRANSACTIONS CLIENT IS PART OF #####################
my $cbbaasth = $dbh->prepare("select transid,type from trans_boardtranstocontact WHERE contactid = '$INPUT{contactid}'");
$cbbaasth->execute;
while (($temptransid,$temptype) = $cbbaasth->fetchrow_array()) {
my $aasth = $dbh->prepare("select id,agent,selleragent,sellercoagent,buyeragent,buyercoagent,type,addressnumber,addressdirection,addressstreet,city,state,zip,pendingdate,estimatedclosingdate from trans_board WHERE id = '$temptransid' ORDER BY type");
$aasth->execute;
$trcolor = "1";
$trcolor2 = "2";
while (($id,$transagent,$selleragent,$sellercoagent,$buyeragent,$buyercoagent,$type,$addressnumber,$addressdirection,$addressstreet,$city,$state,$zip,$pendingdate,$estimatedclosingdate) = $aasth->fetchrow_array()) {
print qq~
Cannot Delete Because Contact is linked to this transaction. Unlink first, then try to delete! $addressnumber,$addressdirection,$addressstreet
~;
}
$found = "yes";
}
####### END GET TRANSACTIONS CLIENT IS PART OF #################
unless ($found eq "yes") {
print qq~
Really Delete Contact $INPUT{name}?
are you sure you want to remove? Yes or No [ Cancel ]
~;
}
print qq~
~;
&footer;
}
}
sub overview_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;
if ($INPUT{regenerate} eq "yes") {
@yvariables = ($INPUT{contactid});
$ysql_query = "DELETE FROM trans_boarduserpass WHERE linktocontact = ?";
my $yzzaasth = $dbh->do($ysql_query, undef, @yvariables);
$gfirstname = "$INPUT{gfirstname}";
$glastname = "$INPUT{glastname}";
$gfirstname = substr($gfirstname, 0, 1);
$username = lc("$gfirstname$glastname");
@Chars = split '','1234567890';
for (1..2){
$username .= $Chars[rand @Chars];
}
#@Chars = split '','abcdefghijkmnopqrstuvwxyzABCDEFGHJKMNPQRSTUVWXYZ23456789';
@Chars = split '','abcdefghijkmnopqrstuvwxyz23456789';
for (1..9){
$password .= $Chars[rand @Chars];
}
@yvariables = ($INPUT{contactid},$username,$password);
$ysql_query = "INSERT INTO trans_boarduserpass values (?,?,?)";
my $yzzaasth = $dbh->do($ysql_query, undef, @yvariables);
}
if ($INPUT{remove} eq "yes") {
@yvariables = ($INPUT{contactid});
$ysql_query = "DELETE FROM trans_boarduserpass WHERE linktocontact = ?";
my $yzzaasth = $dbh->do($ysql_query, undef, @yvariables);
}
if ($INPUT{generate} eq "yes") {
$gfirstname = "$INPUT{gfirstname}";
$glastname = "$INPUT{glastname}";
$gfirstname = substr($gfirstname, 0, 1);
$username = lc("$gfirstname$glastname");
@Chars = split '','1234567890';
for (1..2){
$username .= $Chars[rand @Chars];
}
#@Chars = split '','abcdefghijkmnopqrstuvwxyzABCDEFGHJKMNPQRSTUVWXYZ23456789';
@Chars = split '','abcdefghijkmnopqrstuvwxyz23456789';
for (1..9){
$password .= $Chars[rand @Chars];
}
@yvariables = ($INPUT{contactid},$username,$password);
$ysql_query = "INSERT INTO trans_boarduserpass values (?,?,?)";
my $yzzaasth = $dbh->do($ysql_query, undef, @yvariables);
}
if ($INPUT{addnote} eq "1") {
my $usrdasth = $dbh->prepare("select firstname,lastname from users where userid = '$Cook{userid}'");
$usrdasth->execute;
while (($afirstname,$alastname) = $usrdasth->fetchrow_array()) {
$generateaddedby = "$afirstname $alastname";
}
@variables = ($INPUT{contactid},$generateaddedby,$INPUT{contact_notes});
$sql_query = "INSERT INTO trans_boardcontactnotes values ('',?,now(),?,?)";
my $zzaasth = $dbh->do($sql_query, undef, @variables);
if ($INPUT{todo} eq "yes") {
my $zzdasth = $dbh->prepare("select DATE_FORMAT(now(), '%Y-%m-%d')");
$zzdasth->execute;
while (($gnow) = $zzdasth->fetchrow_array()) {
$good_date = $gnow;
}
$contact_notes = "Contact note added to $INPUT{name} by $generateaddedby: ";
$contact_notes .= "$INPUT{contact_notes}";
@insert_vars = ($INPUT{agent},TransactionSystem,None,$good_date,$contact_notes);
$tsql_query = "insert into todo values ('',?,?,?,?,?,'$INPUT{todo_mark}')";
$yasth = $dbh->do($tsql_query, undef, @insert_vars);
}
}
my $basth = $dbh->prepare("select id,agent,type,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,email_block,notes from trans_boardcontact WHERE id = '$INPUT{contactid}'");
$basth->execute;
print qq~
My Client Overview -- ERA Eagle Real Estate MuncieMLS.com
~;
&header;
print qq~
~;
my $zadasth = $dbh->prepare("select linktocontact,username,password from trans_boarduserpass where linktocontact = '$INPUT{contactid}'");
$zadasth->execute;
while (($linktocontact,$username,$password) = $zadasth->fetchrow_array()) {
print qq~
you may view this clients history as of December 1st, 2004
Type
Status
Address
City
How Involved In Transaction
~;
####### GET TRANSACTIONS CLIENT IS PART OF #####################
my $cbbaasth = $dbh->prepare("select transid,type from trans_boardtranstocontact WHERE contactid = '$INPUT{contactid}'");
$cbbaasth->execute;
while (($temptransid,$temptype) = $cbbaasth->fetchrow_array()) {
my $aasth = $dbh->prepare("select id,agent,selleragent,sellercoagent,buyeragent,buyercoagent,type,status,addressnumber,addressdirection,addressstreet,city,state,zip,pendingdate,estimatedclosingdate from trans_board WHERE id = '$temptransid' ORDER BY type");
$aasth->execute;
$trcolor = "1";
$trcolor2 = "2";
while (($id,$transagent,$selleragent,$sellercoagent,$buyeragent,$buyercoagent,$type,$status,$addressnumber,$addressdirection,$addressstreet,$city,$state,$zip,$pendingdate,$estimatedclosingdate) = $aasth->fetchrow_array()) {
if ($trcolor eq $trcolor2) {
$trcolor = "1";
$setcolor = "#FFFFFF";
}
else {
$setcolor = "#CCCCFF";
$trcolor++;
}
print qq~
~;
}
}
####### END GET TRANSACTIONS CLIENT IS PART OF #################
}
print qq~
~;
&footer;
}
sub overview_contacts_smallaz {
#id,agent,type,firstname,lastname,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,email_block,notes
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
print qq~
Contacts Small A-ZSEARCH USERS LASTNAME BY
~;
my $basth = $dbh->prepare("select id,agent,type,firstname,lastname from trans_boardcontact WHERE agent = '$INPUT{agent}' AND lastname LIKE '$INPUT{find}%' ORDER by lastname ASC");
$basth->execute;
while (($id,$agent,$type,$firstname,$lastname) = $basth->fetchrow_array()) {
print qq~
$id - $agent - $type - $firstname - $lastname
~;
}
print qq~
~;
}
sub overview_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,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
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
~;
if ($INPUT{contact}) {
my $basth = $dbh->prepare("select id,agent,type,firstname,lastname,spouse from trans_boardcontact WHERE agent = '$INPUT{agent}' AND lastname LIKE '$INPUT{contact}%' ORDER by lastname ASC");
$basth->execute;
$trcount = "1";
$totalperrow = "3";
$rowcolor1 = "1";
$rowcolor2 = "2";
print qq~
~;
unless ($ccfound eq "yes") {
print qq~
No Contacts Found, Click on the first letter in the alphabet above that corresponds with your contacts lastname to try another search. If your contact is not listed you can create a new contact by clicking on the link above.
~;
}
}
else {
print qq~
Click on the first letter in the alphabet above that corresponds with your contacts lastname to search your contacts.
~;
}
print qq~
~;
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);
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: ";
$notes .= "$INPUT{notes}";
@insert_vars = ($INPUT{agent},TransactionSystem,None,$good_date,$notes);
$tsql_query = "insert into todo values ('',?,?,?,?,?,'$INPUT{todo_mark}')";
$yasth = $dbh->do($tsql_query, undef, @insert_vars);
}
}
print qq~
My Transactions Overview -- ERA Eagle Real Estate MuncieMLS.com
~;
&header;
print qq~
Navigation:go to transactions
~;
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()) {
my $zaasth = $dbh->prepare("select id,firstname,lastname,company from trans_boarddirectory where id = '$selleragent'");
$zaasth->execute;
my $azaasth = $dbh->prepare("select id,firstname,lastname,company from trans_boarddirectory where id = '$sellercoagent'");
$azaasth->execute;
my $bzaasth = $dbh->prepare("select id,firstname,lastname,company from trans_boarddirectory where id = '$buyeragent'");
$bzaasth->execute;
my $czaasth = $dbh->prepare("select id,firstname,lastname,company from trans_boarddirectory where id = '$buyercoagent'");
$czaasth->execute;
my $bkasth = $dbh->prepare("select ADDDATE('$pendingdate', INTERVAL $inspectionresponsedays DAY)");
$bkasth->execute;
while (($newdate) = $bkasth->fetchrow_array()) {
$inspectionresponsedate = $newdate;
}
if ($listingdate eq "0000-00-00") {
$listingdate = "Not Entered";
}
if ($expiredate eq "0000-00-00") {
$expiredate = "Not Entered";
}
if ($pendingdate eq "0000-00-00") {
$pendingdate = "Not Entered";
}
if ($listingprice eq "") {
$listingprice = "Not Entered";
}
if ($earnestmoneyreceived eq "0000-00-00 00:00:00") {
$earnestmoneyreceived = "Not Received";
}
if ($soldprice eq "") {
$soldprice = "Not Entered";
}
if ($inspectionresponsedate eq "") {
$inspectionresponsedate = "Not Avail.";
}
if ($estimatedclosingdate eq "0000-00-00") {
$estimatedclosingdate = "Not Entered";
}
if ($solddate eq "0000-00-00") {
$solddate = "Not Entered";
}
print qq~
~;
if (-e "/home/muncieml/public_html/images/photos/thumbnail/meiar$mlsnumber\.jpg") {
print qq~
~;
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
~;
}
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~
Create New Transaction -- ERA Eagle Real Estate MuncieMLS.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 = ($INPUT{agent},$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 = '$INPUT{agent}' 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}
#$INPUT{agent}
#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 -- ERA Eagle Real Estate MuncieMLS.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 = '$INPUT{agent}' 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,email_block,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 -- ERA Eagle Real Estate MuncieMLS.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
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 -- ERA Eagle Real Estate MuncieMLS.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,email_block,notes
print qq~
Create New Contact -- ERA Eagle Real Estate MuncieMLS.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,email_block,notes
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
print qq~
Verify New Contact -- ERA Eagle Real Estate MuncieMLS.com
~;
&header;
print qq~
verify new contact information
~;
&footer;
}
sub create_contact_do {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
@variables = ($INPUT{agent},$INPUT{type},$INPUT{firstname},$INPUT{lastname},$INPUT{address},$INPUT{spouse},$INPUT{city},$INPUT{state},$INPUT{zip},$INPUT{phone1type},$INPUT{phone1number},$INPUT{phone2type},$INPUT{phone2number},$INPUT{phone3type},$INPUT{phone3number},$INPUT{faxnumber},$INPUT{email},$INPUT{email_block},$INPUT{notes});
$sql_query = "INSERT INTO trans_boardcontact values ('',?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)";
my $aasth = $dbh->do($sql_query, undef, @variables);
if ($INPUT{transid} ne "") {
my $zaasth = $dbh->prepare("select id from trans_boardcontact WHERE agent = '$INPUT{agent}' ORDER BY id DESC LIMIT 0,1");
$zaasth->execute;
while (($contactid) = $zaasth->fetchrow_array()) {
@variables = ($INPUT{transid},$contactid,$INPUT{contact_type});
$sql_query = "INSERT INTO trans_boardtranstocontact values (?,?,?)";
my $zzaasth = $dbh->do($sql_query, undef, @variables);
print qq~
Making Changes to Datebase
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
}
unless ($INPUT{transid}) {
print qq~
Making Changes to Datebase
Please wait, Processing You will be redirected to when finished. If not Click Here.
~;
}
}
sub 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{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
$b_firstname$b_spouse $b_lastname
Create/Assign
~;
}
#####################################################
print qq~
