#!/usr/bin/perl require "config.idx"; $long = $ENV{'QUERY_STRING'}; if ($long) { @pairs=split(/&/,$long); foreach $item(@pairs) { ($name,$content)=split (/=/,$item,2); $content=~tr/+/ /; $content=~ s/%(..)/pack("c",hex($1))/ge; if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$content; } else { $INPUT{$name} = $content; } } } else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; } else { $INPUT{$name} = $value; } } } &checklogin; 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{view} eq "details") { &details; } elsif ($INPUT{view} eq "prospecting_linked") { &prospecting_linked; } elsif ($INPUT{view} eq "create_prospect") { &create_prospect; } elsif ($INPUT{view} eq "edit_prospect") { &edit_prospect; } elsif ($INPUT{view} eq "edit_prospect_do") { &edit_prospect_do; } elsif ($INPUT{view} eq "create_prospect_do") { &create_prospect_do; } elsif ($INPUT{view} eq "overview_notes_show") { &overview_notes_show; } elsif ($INPUT{view} eq "overview_documents") { &overview_documents; } elsif ($INPUT{view} eq "search") { &search; } elsif ($INPUT{view} eq "convert_contact") { &convert_contact; } elsif ($INPUT{view} eq "letters") { &letters; } elsif ($INPUT{view} eq "print") { &print; } else { &main; } sub convert_contact { if ($INPUT{do} eq "yes") { 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,agent,type,firstname,lastname,address,spouse,city,state,zip,phone1type,phone1number,phone2type,phone2number,phone3type,phone3number,faxnumber,email,emailtwo,contacttype,initial_contactdate,last_contactdate,next_contactdate,source,notes from trans_boardprospect WHERE id = '$INPUT{prospectid}'"); $basth->execute; while (($id,$agent,$type,$firstname,$lastname,$address,$spouse,$city,$state,$zip,$phone1type,$phone1number,$phone2type,$phone2number,$phone3type,$phone3number,$faxnumber,$email,$emailtwo,$contacttype,$initial_contactdate,$last_contactdate,$next_contactdate,$source,$notes) = $basth->fetchrow_array()) { @variables = ($agent,$type,$firstname,$lastname,$address,$spouse,$city,$state,$zip,$phone1type,$phone1number,$phone2type,$phone2number,$phone3type,$phone3number,$faxnumber,$email,$emailtwo,$contacttype,$initial_contactdate,$last_contactdate,$next_contactdate,$source,$notes); $sql_query = "INSERT INTO trans_boardcontact values ('',?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"; my $aasth = $dbh->do($sql_query, undef, @variables); my $zaasth = $dbh->prepare("select id from trans_boardcontact WHERE agent = '$INPUT{agent}' ORDER BY id DESC LIMIT 0,1"); $zaasth->execute; while (($newcontactid) = $zaasth->fetchrow_array()) { my $getnasth = $dbh->prepare("select noteid,prospectid,datetime,addedby,note from trans_boardprospectnotes WHERE prospectid = '$INPUT{prospectid}'"); $getnasth->execute; while (($noteid,$prospectid,$datetime,$addedby,$note) = $getnasth->fetchrow_array()) { @newnvariables = ($newcontactid,$datetime,$addedby,$note); $newnsql_query = "INSERT INTO trans_boardcontactnotes values ('',?,?,?,?)"; my $newnasth = $dbh->do($newnsql_query, undef, @newnvariables); } my $getdasth = $dbh->prepare("select did from documents WHERE matchcat = 'p' AND matchid = '$INPUT{prospectid}'"); $getdasth->execute; while (($did) = $getdasth->fetchrow_array()) { @newdvariables = ($newcontactid); $newdsql_query = "UPDATE documents set matchcat = 'c', matchid = ? WHERE did = '$did'"; my $newdasth = $dbh->do($newdsql_query, undef, @newdvariables); } $getcontactid = $newcontactid; } @delprospectvariables = ($INPUT{prospectid}); $delprospectsql_query = "DELETE FROM trans_boardprospect WHERE id = ?"; my $delprospectasth = $dbh->do($delprospectsql_query, undef, @delprospectvariables); @delprospectnotesvariables = ($INPUT{prospectid}); $delprospectnotessql_query = "DELETE FROM trans_boardprospectnotes WHERE prospectid = ?"; my $delprospectnotesasth = $dbh->do($delprospectnotessql_query, undef, @delprospectnotesvariables); @delprospectapvariables = ($INPUT{prospectid}); $delprospectapsql_query = "DELETE from trans_boardtask_triggers where idlink = ? and task_type = 'Prospect'"; my $delprospectapasth = $dbh->do($delprospectapsql_query, undef, @delprospectapvariables); } print qq~ Converting Prospect To Contact



Please wait, Processing Conversion

Converting Data
Converting Notes Information
Converting Documents
Deleting Prospect Data
Deleting Prospect Notes
Cleaning Up Prospect Documents

Please wait, Processing
You will be redirected to when finished. If not Click Here.
~; } else { print qq~ Convert Prospect To Contact -- Eagle Real Estate, Inc. - Connect.EagleSold.com ~; &header; print qq~ My Prospects

Really Convert Prospect $INPUT{name} to Contact?
are you sure you want to convert?

Yes or No [ Cancel ]

If you select yes the following information will be converted to a contact:

Converting Data
Converting Notes Information
Converting Documents
Deleting Prospect Data
Deleting Prospect Notes
Cleaning Up Prospect Documents
Remove Any Active Action Plans
 ~; &footer; } } sub search { 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 Prospecting -- The ORR Home Selling Team - Connect.EagleSold.com ~; $display_full = "yes"; &header; print qq~ Return HomeProspecting Center

~; print qq~
My prospects
        use the alphabet below to search your prospects

Search your prospects by Lastname
 Create A New prospect
All A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z

~; if ($INPUT{prospect}) { my $basth = $dbh->prepare("select id,agentid,type,contact_firstname,contact_lastname,contact_spouse from trans_boardprospecting WHERE agentid = '600' AND contact_lastname LIKE '$INPUT{prospect}%' ORDER by contact_lastname ASC"); $basth->execute; $trcount = "1"; $totalperrow = "3"; $rowcolor1 = "1"; $rowcolor2 = "2"; print qq~ ~; while (($prospectid,$agent,$type,$firstname,$lastname,$spouse) = $basth->fetchrow_array()) { if ($rowcolor1 eq $rowcolor2) { $color = "#FFFFFF"; $rowcolor1 = "1"; } else { $color = "#FFFF99"; $rowcolor1++; } if ($spouse ne "") { $spouse = " & $spouse "; } else { $spouse = ""; } print qq~ ~; if ($trcount eq $totalperrow) { print ""; $trcount = "1"; } else { $trcount++; } $ccfound = "yes"; } print qq~
$lastname, $firstname$spouse View details for $lastname, $firstname$spouse
~; unless ($ccfound eq "yes") { print qq~ No prospects Found, Click on the first letter in the alphabet above that corresponds with your prospects lastname to try another search. If your prospect is not listed you can create a new prospect by clicking on the link above.
~; } } else { print qq~ Click on the first letter in the alphabet above that corresponds with your prospects lastname to search your prospects.
~; } print qq~

Recently Added Prospects within the last 2 weeks
~; my $casth = $dbh->prepare("select id,contact_firstname,contact_spouse,contact_lastname,type,DATE_FORMAT(load_datetime, '%M %D, %Y'),assigned_to,lead_source from trans_boardprospecting WHERE agentid = '600' AND load_datetime BETWEEN DATE_ADD(now(), INTERVAL -14 DAY) AND now() ORDER BY load_datetime DESC"); $casth->execute; while (($id,$firstname,$spouse,$lastname,$contacttype,$initial_contactdate,$assigned_to,$lead_source) = $casth->fetchrow_array()) { print qq~ ~; $found = "yes"; } unless ($found eq "yes") { print qq~No Prospects Have Saved Next Contact Dates Yet!~; } print qq~
Date Added Assigned To Prospect Name Category Lead Source
$initial_contactdate $assigned_to $firstname $spouse $lastname
 $contacttype $lead_source

~; &footer; } sub prospecting_linked { print 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; #passed varibles do = search id if ($INPUT{do} eq "add") { $address = "$INPUT{addressnumber} $INPUT{addressstreet}"; @variables = ($INPUT{prospectingid},$INPUT{mlsnumber},$address,$INPUT{city},$INPUT{price},$INPUT{sqft},$INPUT{beds},$INPUT{baths},$INPUT{yrbuilt}); $sql_query = "INSERT INTO trans_boardtranstoprospecting 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.
~; } elsif ($INPUT{do} eq "search") { print qq~Choose The Listing Below to Link Prospect With | Cancel
~; my $res3_prop_search = $dbh->prepare("select MLSNUM,AddressNumber,AddressStreet,City,Price,YearBuilt,TotalSqFt,Bedrooms,FullBaths,HalfBaths from listings_res3 WHERE (addressnumber LIKE '%$INPUT{query}%' OR addressstreet LIKE '%$INPUT{query}%' OR MLSNUM LIKE '%$INPUT{query}%')"); $res3_prop_search->execute; while (($mlsnumber,$addressnumber,$addressstreet,$city,$price,$yrbuilt,$sqft,$beds,$fullbaths,$halfbaths) = $res3_prop_search->fetchrow_array()) { $s_mlsnumber = "$mlsnumber"; $s_addressnumber = "$addressnumber"; $s_addressstreet = "$addressstreet"; $baths = ($fullbaths+$halfbaths); if ($mlsnumber =~ /$INPUT{query}/i) { $s_mlsnumber = "$mlsnumber"; } if ($addressnumber =~ /$INPUT{query}/i) { $s_addressnumber = "$addressnumber"; } if ($addressstreet =~ /$INPUT{query}/i) { $s_addressstreet = "$addressstreet"; } print qq~Website | MLS#$s_mlsnumber $s_addressnumber $s_addressstreet
~; } my $trans_prop_search = $dbh->prepare("select status,mlsnumber,addressnumber,addressstreet,city,listingprice from trans_board WHERE agent = '600' AND (status = 'Active' OR status = 'Pending') AND (addressnumber LIKE '%$INPUT{query}%' OR addressstreet LIKE '%$INPUT{query}%' OR mlsnumber LIKE '%$INPUT{query}%')"); $trans_prop_search->execute; while (($status,$mlsnumber,$addressnumber,$addressstreet,$city,$price) = $trans_prop_search->fetchrow_array()) { $baths = ($fullbaths+$halfbaths); if ($mlsnumber =~ /$INPUT{query}/i) { $mlsnumber = "$mlsnumber"; } if ($addressnumber =~ /$INPUT{query}/i) { $addressnumber = "$addressnumber"; } if ($addressstreet =~ /$INPUT{query}/i) { $addressstreet = "$addressstreet"; } print qq~Connect | $status | MLS#$s_mlsnumber $s_addressnumber $s_addressstreet
~; } } elsif ($INPUT{do} eq "delete") { @variables = ($INPUT{id}); $sql_query = "DELETE from trans_boardtranstoprospecting WHERE id = ?"; 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.
~; } else { my $casth = $dbh->prepare("select COUNT(id) from trans_boardtranstoprospecting where prospectingid = '$INPUT{prospectingid}'"); $casth->execute; while (($cid) = $casth->fetchrow_array()) { $NumOfRecs = $cid; } $print_listinglist=qq~Found $NumOfRecs Linked Listing(s)
~; # SET PROFILER NUM OF RECS $total_price_count = $NumOfRecs; $total_sqft_count = $NumOfRecs; $total_yearbuilt_count = $NumOfRecs; $total_beds_count = $NumOfRecs; $total_baths_count = $NumOfRecs; my $asth = $dbh->prepare("select id,prospectingid,mlsnumber,address,city,price,sqft,beds,baths,yrbuilt from trans_boardtranstoprospecting where prospectingid = '$INPUT{prospectingid}'"); $asth->execute; while (($id,$prospectingid,$mlsnumber,$address,$city,$price,$sqft,$beds,$baths,$yrbuilt) = $asth->fetchrow_array()) { if ($price eq "") { $price = "0"; } if ($sqft eq "") { $sqft = "0"; } if ($beds eq "") { $beds = "0"; } if ($baths eq "") { $baths = "0"; } if ($yrbuilt eq "") { $yrbuilt = "0"; } $price =~ s/\,//gi; $sqft =~ s/\,//gi; ## Do the Math $total_price = ($price+$total_price); if ($price eq "0" || $price eq "") { $total_price_count = ($total_price_count-1); } if ($total_price_count eq "0") { $avg_price = "0"; } else { $avg_price = ($total_price/$total_price_count); } $avg_price = sprintf("%.0f", $avg_price); $total_sqft = ($sqft+$total_sqft); if ($sqft eq "0" || $sqft eq "") { $total_sqft_count = ($total_sqft_count-1); } if ($total_sqft_count eq "0") { $avg_sqft = "0"; } else { $avg_sqft = ($total_sqft/$total_sqft_count); } $avg_sqft = sprintf("%.0f", $avg_sqft); $total_yearbuilt = ($yrbuilt+$total_yearbuilt); if ($yrbuilt eq "0" || $yrbuilt eq "") { $total_yearbuilt_count = ($total_yearbuilt_count-1); } if ($total_yearbuilt_count eq "0") { $avg_yearbuilt = "0"; } else { $avg_yearbuilt = ($total_yearbuilt/$total_yearbuilt_count); } $avg_yearbuilt = sprintf("%.0f", $avg_yearbuilt); $total_beds = ($beds+$total_beds); if ($beds eq "0" || $beds eq "") { $total_beds_count = ($total_beds_count-1); } if ($total_beds_count eq "0") { $avg_beds = "0"; } else { $avg_beds = ($total_beds/$total_beds_count);} $avg_beds = sprintf("%.2f", $avg_beds); $total_baths = ($baths+$total_baths); if ($baths eq "0" || $baths eq "") { $total_baths_count = ($total_baths_count-1); } if ($total_baths_count eq "0") { $avg_baths = "0"; } else { $avg_baths = ($total_baths/$total_baths_count); } $avg_baths = sprintf("%.2f", $avg_baths); $print_listinglist.=qq~ $mlsnumber | $address $city Delete This Note
~; $found = "yes"; $print_profilerdata=qq~
-- > ORRTeam Prospect Profiler: Buyer Looking For
Price \$$avg_price($total_price_count)SQFT $avg_sqft($total_sqft_count)Beds $avg_beds($total_beds_count)Baths $avg_baths($total_baths_count)Year $avg_yearbuilt($total_yearbuilt_count)
~; } unless ($found eq "yes") { $print_profilerdata=qq~
-- > ORRTeam Prospect Profiler: Buyer Looking For
Let me work, Link some listings with the prospect first!
~; $print_listinglist.=qq~Prospect not linked to listings yet!
~; } print qq~ $print_profilerdata
~; if ($INPUT{hide} eq "list") { } else { print qq~$print_listinglist
~; } } print qq~ ~; } sub print { 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,agentid,status,message_data,type,DATE_FORMAT(load_datetime, '%b %D, %Y %h\%p'),loaded_by,assigned_to,lead_source,prop_address_number,prop_address_direction,prop_address_street,prop_address2,prop_city,prop_zip,contact_firstname,contact_spouse,contact_lastname,contact_address,contact_address2,contact_city,contact_state,contact_zip,contact_phone1type,contact_phone1_num1,contact_phone1_num2,contact_phone1_num3,contact_phone2type,contact_phone2_num1,contact_phone2_num2,contact_phone2_num3,contact_emailaddress,previous_agent,price_high,price_low,DATE_FORMAT(last_followup, '%b %D, %Y'),DATE_FORMAT(next_followup, '%b %D, %Y'),result,DATE_FORMAT(hotlist_date, '%b %D, %Y') from trans_boardprospecting where id = '$INPUT{id}'"); $basth->execute; while (($id,$agent,$status,$message_data,$type,$load_datetime,$loaded_by,$assigned_to,$lead_source,$prop_address_number,$prop_address_direction,$prop_address_street,$prop_address2,$prop_city,$prop_zip,$contact_firstname,$contact_spouse,$contact_lastname,$contact_address,$contact_address2,$contact_city,$contact_state,$contact_zip,$contact_phone1type,$contact_phone1_num1,$contact_phone1_num2,$contact_phone1_num3,$contact_phone2type,$contact_phone2_num1,$contact_phone2_num2,$contact_phone2_num3,$contact_emailaddress,$previous_agent,$price_high,$price_low,$last_followup,$next_followup,$result,$hotlist_date) = $basth->fetchrow_array()) { ### START CHECKS #### if ($next_followup eq "" || $next_followup eq "0000-00-00") { $next_followup = "Not Entered"; } if ($hotlist_date eq "" || $hotlist_date eq "0000-00-00") { $hotlist_date = "Not Entered"; } if ($contact_spouse eq "") {} else { $contact_spouse = " & $contact_spouse"; } if ($contact_lastname) { $contact_lastname = "$contact_lastname
"; } if ($contact_lastname eq "") { $contact_firstname = "$contact_firstname
"; } unless ($contact_address eq "") { $check_address = "Address $contact_address
"; } unless ($contact_address2 eq "") { $check_address2 = "$contact_address2
"; } unless ($contact_city eq "") { $check_city = "$contact_city"; } unless ($contact_state eq "") { $check_state = "$contact_state"; } unless ($contact_zip eq "0") { $check_zip = "$contact_zip
"; } else { $check_zip = "
"; } unless ($contact_emailaddress eq "") { $contact_emailaddress = "E-Mail $contact_emailaddress"; } unless ($prop_address_number eq "") { $check_prop_address_number = "$prop_address_number"; } unless ($prop_address_direction eq "") { $check_prop_address_direction = " $prop_address_direction "; } unless ($prop_address_street eq "") { $check_prop_address_street = "$prop_address_street "; } unless ($prop_address2 eq "") { $check_prop_address2 = "$prop_address2
"; } unless ($prop_city eq "") { $check_prop_city = "$prop_city"; } unless ($prop_zip eq "") { $check_prop_zip = "$prop_zip"; } else { $check_prop_zip = "
"; } unless ($prop_address_street eq "") { $complete_prop_address = "
Prospect Property
$check_prop_address_number$check_prop_address_direction$check_prop_address_street$check_prop_address2$check_prop_city $check_prop_zip"; } unless ($last_followup) { $last_followup = "Not Entered"; } unless ($next_followup) { $next_followup = "Not Entered"; } unless ($message_data eq "") { $message_data =qq~
$message_data
My Prospecting Overview -- The ORR Home Selling Team - Connect.EagleSold.com

      Prospect ID # $id | Inquire Date and Time: $load_datetime
$contact_firstname$contact_spouse $contact_lastname $contact_firstname$contact_spouse $contact_lastname $check_address $check_city $check_state $check_zip $complete_prop_address $contact_phone1type $contact_phone1_num1-$contact_phone1_num2-$contact_phone1_num3
$contact_phone2type $contact_phone2_num1-$contact_phone2_num2-$contact_phone2_num3
$contact_emailaddress
 		Type
$type
Agent Assigned
$assigned_to
Lead Source
$lead_source

Listing(s) Prospect Inquired About
~; my $aasth = $dbh->prepare("select mlsnumber,address,city from trans_boardtranstoprospecting where prospectingid = '$id' GROUP BY mlsnumber ORDER BY address desc"); $aasth->execute; while (($mlsnumber,$address,$city) = $aasth->fetchrow_array()) { print qq~  MLS\# $mlsnumber - $address, $city
 ~; $found = "yes"; } unless ($found eq "yes") { print qq~Not linked to any listings!
~; } print qq~


 Notes:
$message_data ~; my $cbasth = $dbh->prepare("select noteid,prospectingid,DATE_FORMAT(datetime, '%b %D, %Y at %h\:%i%p'),addedby,note from trans_boardprospecting_notes WHERE prospectingid = '$INPUT{id}' ORDER by datetime DESC"); $cbasth->execute; while (($noteid,$nprospectingid,$datetime,$addedby,$tnote) = $cbasth->fetchrow_array()) { print qq~
$tnote added $datetime by $addedby
~; $notes_found = "yes"; } unless ($notes_found eq "yes") { print qq~   No Notes Added!
~; } print qq~ 		 Last Followup:
  $last_followup

New:
 Last Result:
  $result

New:
 Next Followup:
  $next_followup

New:


~; } } sub letters { my $letters_sth = $dbh->prepare("SELECT id,subject,body FROM trans_boardprospecting_letters WHERE id = '$INPUT{letterid}' and agent = '$INPUT{agent}'"); $letters_sth->execute; while (($letters_id,$letters_subject,$letters_body) = $letters_sth->fetchrow_array()) { my $uasth = $dbh->prepare("SELECT id,agentid,status,type,DATE_FORMAT(load_datetime, '%b %D, %Y %h\%p'),loaded_by,assigned_to,lead_source,prop_address_number,prop_address_direction,prop_address_street,prop_address2,prop_city,prop_zip,contact_firstname,contact_spouse,contact_lastname,contact_address,contact_address2,contact_city,contact_state,contact_zip,contact_phone1type,contact_phone1_num1,contact_phone1_num2,contact_phone1_num3,contact_phone2type,contact_phone2_num1,contact_phone2_num2,contact_phone2_num3,contact_emailaddress,previous_agent,price_high,price_low,next_followup,result,DATE_FORMAT(hotlist_date, '%b %D, %Y') from trans_boardprospecting where id = '$INPUT{id}' and agentid = '$INPUT{agent}'"); $uasth->execute; while (($id,$agent,$status,$type,$load_datetime,$loaded_by,$assigned_to,$lead_source,$prop_address_number,$prop_address_direction,$prop_address_street,$prop_address2,$prop_city,$prop_zip,$contact_firstname,$contact_spouse,$contact_lastname,$contact_address,$contact_address2,$contact_city,$contact_state,$contact_zip,$contact_phone1type,$contact_phone1_num1,$contact_phone1_num2,$contact_phone1_num3,$contact_phone2type,$contact_phone2_num1,$contact_phone2_num2,$contact_phone2_num3,$contact_emailaddress,$previous_agent,$price_high,$price_low,$next_followup,$result,$hotlist_date) = $uasth->fetchrow_array()) { if ($contact_spouse eq "") {} else { $contact_spouse = " & $contact_spouse"; } $show_name = "$contact_firstname$contact_spouse $contact_lastname"; $show_propertyaddress = "$prop_address_number $prop_address_direction $prop_address_street, $prop_city"; ### DO THE CHANGES TO THE LETTER $letters_body =~ s/\$change_fullname/$show_name/g; $letters_body =~ s/\$change_propertyaddress/$show_propertyaddress/g; print qq~ $letters_body ~; } } $dbh->disconnect; } sub edit_prospect_do { @variables = ($INPUT{record_status},$INPUT{record_type},$INPUT{message_data},$INPUT{loaded_by},$INPUT{assigned_to},$INPUT{lead_source},$INPUT{prop_address_number},$INPUT{prop_address_direction},$INPUT{prop_address_street},$INPUT{prop_address2},$INPUT{prop_city},$INPUT{prop_zip},$INPUT{contact_firstname},$INPUT{contact_spouse},$INPUT{contact_lastname},$INPUT{contact_address},$INPUT{contact_address2},$INPUT{contact_city},$INPUT{contact_state},$INPUT{contact_zip},$INPUT{contact_emailaddress},$INPUT{contact_phone1type},$INPUT{contact_phone1_num1},$INPUT{contact_phone1_num2},$INPUT{contact_phone1_num3},$INPUT{contact_phone2type},$INPUT{contact_phone2_num1},$INPUT{contact_phone2_num2},$INPUT{contact_phone2_num3},$INPUT{previous_agent},$INPUT{price_high},$INPUT{price_low},$INPUT{last_followup},$INPUT{next_followup},$INPUT{result},$INPUT{hotlist_date},$INPUT{id}); $sql_query = "update trans_boardprospecting set status = ?, type = ?, message_data = ?, loaded_by = ?, assigned_to = ?, lead_source = ?, prop_address_number = ?, prop_address_direction = ?, prop_address_street = ?, prop_address2 = ?, prop_city = ?, prop_zip = ?, contact_firstname = ?, contact_spouse = ?, contact_lastname = ?, contact_address = ?, contact_address2 = ?, contact_city = ?, contact_state = ?, contact_zip = ?, contact_emailaddress = ?, contact_phone1type = ?, contact_phone1_num1 = ?, contact_phone1_num2 = ?, contact_phone1_num3 = ?, contact_phone2type = ?, contact_phone2_num1 = ?, contact_phone2_num2 = ?, contact_phone2_num3 = ?, previous_agent = ?, price_high = ?, price_low = ?, last_followup = ?, next_followup = ?, result = ?, hotlist_date = ? where id = ?"; my $asth = $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 edit_prospect { my $uasth = $dbh->prepare("SELECT id,agentid,status,type,message_data,DATE_FORMAT(load_datetime, '%b %D, %Y %h\%p'),loaded_by,assigned_to,lead_source,prop_address_number,prop_address_direction,prop_address_street,prop_address2,prop_city,prop_zip,contact_firstname,contact_spouse,contact_lastname,contact_address,contact_address2,contact_city,contact_state,contact_zip,contact_phone1type,contact_phone1_num1,contact_phone1_num2,contact_phone1_num3,contact_phone2type,contact_phone2_num1,contact_phone2_num2,contact_phone2_num3,contact_emailaddress,previous_agent,price_high,price_low,last_followup,next_followup,result,hotlist_date from trans_boardprospecting where id = '$INPUT{id}' and agentid = '$INPUT{agent}'"); $uasth->execute; while (($id,$agent,$record_status,$record_type,$message_data,$load_datetime,$loaded_by,$assigned_to,$lead_source,$prop_address_number,$prop_address_direction,$prop_address_street,$prop_address2,$prop_city,$prop_zip,$contact_firstname,$contact_spouse,$contact_lastname,$contact_address,$contact_address2,$contact_city,$contact_state,$contact_zip,$contact_phone1type,$contact_phone1_num1,$contact_phone1_num2,$contact_phone1_num3,$contact_phone2type,$contact_phone2_num1,$contact_phone2_num2,$contact_phone2_num3,$contact_emailaddress,$previous_agent,$price_high,$price_low,$last_followup,$next_followup,$result,$hotlist_date) = $uasth->fetchrow_array()) { my $aasth = $dbh->prepare("select firstname,lastname,email from agents where mlsid = '$INPUT{agent}'"); $aasth->execute; while (($firstname,$lastname,$email) = $aasth->fetchrow_array()) { $loaded_bypull .= ""; } $dropdown_recordstatus = "\n\n"; $dropdown_recordtype = "\n\n"; $dropdown_loaded_by = "\n\n"; $dropdown_assigned_to = "\n\n"; $dropdown_lead_source = "\n\n"; $dropdown_contact_phone1type = "\n\n"; $dropdown_contact_phone2type = "\n\n"; $dropdown_result = "\n\n"; print qq~ The ORR Home Selling Team - Prospecting System 2010 ver:1.4 ~; &header; print qq~ 		Prospecting Center

Edit Prospecting File
Record Status
Record Type
Loaded By
Assigned To
Lead Source
Property Address Address Number
Address Direction
Address Street
Address2
City
Zip
Contact Information Firstname
Spouse
Lastname
Address
Address2
City
State
Zip
E-Mail Address
Phone 1 Number --
Phone 2 Number --
Original Data Received
(Usually By E-Mail)
Previous Agent
Estimated Price \$,
Last Followup Date  Click Here to Pick up the date Last Follow Up
Next Followup Date  Click Here to Pick up the date Next Follow Up
Hot List Date  Click Here to Pick up the date Hot List Date
Result
~; &footer; } } sub create_prospect_do { my $datebasth = $dbh->prepare("select DATE_FORMAT(DATE_ADD(now(), INTERVAL 1 DAY), '%Y-%m-%d')"); $datebasth->execute; while (($newstartdate) = $datebasth->fetchrow_array()) { $enterdate = "$newstartdate"; } @variables = ($INPUT{agent},$INPUT{record_status},$INPUT{message_data},$INPUT{record_type},$INPUT{loaded_by},$INPUT{assigned_to},$INPUT{lead_source},$INPUT{prop_address_number},$INPUT{prop_address_direction},$INPUT{prop_address_street},$INPUT{prop_address2},$INPUT{prop_city},$INPUT{prop_zip},$INPUT{contact_firstname},$INPUT{contact_spouse},$INPUT{contact_lastname},$INPUT{contact_address},$INPUT{contact_address2},$INPUT{contact_city},$INPUT{contact_state},$INPUT{contact_zip},$INPUT{contact_phone1type},$INPUT{contact_phone1_num1},$INPUT{contact_phone1_num2},$INPUT{contact_phone1_num3},$INPUT{contact_phone2type},$INPUT{contact_phone2_num1},$INPUT{contact_phone2_num2},$INPUT{contact_phone2_num3},$INPUT{contact_emailaddress},$INPUT{previous_agent},$INPUT{price_high},$INPUT{price_low},$enterdate,$INPUT{last_followup},$INPUT{hotlist_date}); $sql_query = "INSERT INTO trans_boardprospecting values ('',?,?,?,?,now(),?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,'',?)"; my $aasth = $dbh->do($sql_query, undef, @variables); my $zaasth = $dbh->prepare("select id from trans_boardprospecting ORDER BY id DESC LIMIT 0,1"); $zaasth->execute; while (($pid) = $zaasth->fetchrow_array()) { $getnewid = $pid; } print qq~ Making Changes to Datebase



Please wait, Processing
You will be redirected to when finished. If not Click Here.
~; } sub create_prospect { my $aasth = $dbh->prepare("select firstname,lastname,email from agents where mlsid = '$INPUT{agent}'"); $aasth->execute; while (($firstname,$lastname,$email) = $aasth->fetchrow_array()) { $loaded_bypull .= ""; } print qq~ The ORR Home Selling Team - Prospecting System 2010 ver:1.4 ~; &header; print qq~ Prospecting Center

Create New Prospecting File

[ Cancel Create ]
Record Status
Record Type
Message Data Received
(Usually By E-Mail)
Loaded By
Assigned To
Lead Source
Property Address Address Number
Address Direction
Address Street
Address2
City
Zip
Contact Information Firstname
Spouse
Lastname
Address
Address2
City
State
Zip
E-Mail Address
Phone 1 Number --
Phone 2 Number --
Previous Agent
Estimated Price \$,
Last Followup Date  Click Here to Pick up the date Date
Next Followup Date  Click Here to Pick up the date Date
Hot List Date  Click Here to Pick up the date Hot List Date
[ Cancel Create ]
~; &footer; } sub overview_documents { $show_icon{pdf} = qq~PDF Document~; $show_icon{doc} = qq~Microsoft Word Document~; $show_icon{jpg} = qq~JPG Photo~; $show_icon{efx} = qq~eFax Document~; 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 trans_boardprospecting_documents where prospectingid = '$INPUT{prospectingid}' ORDER BY dateadded DESC"); $basth->execute; while ($data_ref = $basth->fetchrow_hashref()) { %documents = %$data_ref; $doc_ext = $documents{newfileext}; $show_docs .= qq~ $show_icon{$doc_ext} $documents{name}
Added $documents{dateadded}
~; $found = "yes"; } print qq~ The ORR Home Selling Team - Prospecting System 2010 ver:1.4
~; unless ($found eq "yes") { print qq~ No Documents have been uploaded yet! ~; } else { print qq~ $show_docs ~; } print qq~
~; } sub details { my $uasth = $dbh->prepare("SELECT id,agentid,status,type,message_data,DATE_FORMAT(load_datetime, '%b %D, %Y %h\%p'),loaded_by,assigned_to,lead_source,prop_address_number,prop_address_direction,prop_address_street,prop_address2,prop_city,prop_zip,contact_firstname,contact_spouse,contact_lastname,contact_address,contact_address2,contact_city,contact_state,contact_zip,contact_phone1type,contact_phone1_num1,contact_phone1_num2,contact_phone1_num3,contact_phone2type,contact_phone2_num1,contact_phone2_num2,contact_phone2_num3,contact_emailaddress,previous_agent,price_high,price_low,last_followup,DATE_FORMAT(last_followup, '%b %D, %Y'),next_followup,DATE_FORMAT(next_followup, '%b %D, %Y'),result,DATE_FORMAT(hotlist_date, '%b %D, %Y') from trans_boardprospecting where id = '$INPUT{id}' and agentid = '$INPUT{agent}'"); $uasth->execute; while (($id,$agent,$record_status,$record_type,$message_data,$load_datetime,$loaded_by,$assigned_to,$lead_source,$prop_address_number,$prop_address_direction,$prop_address_street,$prop_address2,$prop_city,$prop_zip,$contact_firstname,$contact_spouse,$contact_lastname,$contact_address,$contact_address2,$contact_city,$contact_state,$contact_zip,$contact_phone1type,$contact_phone1_num1,$contact_phone1_num2,$contact_phone1_num3,$contact_phone2type,$contact_phone2_num1,$contact_phone2_num2,$contact_phone2_num3,$contact_emailaddress,$previous_agent,$price_high,$price_low,$last_followup,$last_followup_clean,$next_followup,$next_followup_clean,$result,$hotlist_date) = $uasth->fetchrow_array()) { ### START CHECKS #### if ($next_followup eq "" || $next_followup eq "0000-00-00") { $next_followup = "Not Entered"; } if ($hotlist_date eq "" || $hotlist_date eq "0000-00-00") { $hotlist_date = "Not Entered"; } if ($prop_address2 eq "") { } else { $prop_address2 = "$prop_address2"; } if ($contact_address2 eq "") { } else { $contact_address2 = "$contact_address2
"; } if ($contact_spouse eq "") {} else { $contact_spouse = " & $contact_spouse"; } if ($contact_lastname) { $contact_lastname = "$contact_lastname
"; } if ($contact_lastname eq "") { $contact_firstname = "$contact_firstname
"; } if ($last_followup eq "0000-00-00") { $last_followup = ""; } unless ($result eq "") { $result_dropdown = ""; } ### SEARCH FOR LETTERS ### my $letters_sth = $dbh->prepare("SELECT id,subject,body FROM trans_boardprospecting_letters WHERE agent = '$agent' order by display_order ASC"); $letters_sth->execute; while (($letters_id,$letters_subject,$letters_body) = $letters_sth->fetchrow_array()) { $show_letters .=qq~ + $letters_subject
~; $foundletter = "yes"; } ### SEARCH DNC LIST ### my $aasth = $dbh->prepare("SELECT areacode,number3,number4 FROM telemarketing WHERE areacode = '$contact_phone1_num1' AND number3 = '$contact_phone1_num2' AND number4 = '$contact_phone1_num3'"); $aasth->execute; while (($phone1_areacode,$phone1_number3,$phone1_number4) = $aasth->fetchrow_array()) { $foundnumber1 = "yes"; } if ($foundnumber1 eq "yes") { unless ($contact_phone1_num1 eq "") { $phone1_dnc = "\"On $contact_phone1type $contact_phone1_num1-$contact_phone1_num2-$contact_phone1_num3
"; } } else { unless ($contact_phone1_num1 eq "") { unless ($contact_phone1_num1 eq "765" || $contact_phone1_num1 eq "317" || $contact_phone1_num1 eq "260" || $contact_phone1_num1 eq "812" || $contact_phone1_num1 eq "219") { $phone1_dnc = "\"On $contact_phone1type ($contact_phone1_num1)-$contact_phone1_num2-$contact_phone1_num3
(Cannot Check # Outside Indiana)
"; } else { $phone1_dnc = "\"OK $contact_phone1type $contact_phone1_num1-$contact_phone1_num2-$contact_phone1_num3
"; } } } my $basth = $dbh->prepare("SELECT areacode,number3,number4 FROM telemarketing WHERE areacode = '$contact_phone2_num1' AND number3 = '$contact_phone2_num2' AND number4 = '$contact_phone2_num3'"); $basth->execute; while (($phone2_areacode,$phone2_number3,$phone2_number4) = $basth->fetchrow_array()) { $foundnumber2 = "yes"; } if ($foundnumber2 eq "yes") { unless ($contact_phone2_num1 eq "") { $phone2_dnc = "\"On $contact_phone2type $contact_phone2_num1-$contact_phone2_num2-$contact_phone2_num3
"; } } else { unless ($contact_phone2_num1 eq "") { unless ($contact_phone2_num1 eq "765" || $contact_phone2_num1 eq "317" || $contact_phone2_num1 eq "260" || $contact_phone2_num1 eq "812" || $contact_phone2_num1 eq "219") { $phone2_dnc = "\"On $contact_phone2type ($contact_phone2_num1)-$contact_phone2_num2-$contact_phone2_num3
(Cannot Check # Outside Indiana)
"; } else { $phone2_dnc = "\"OK $contact_phone2type $contact_phone2_num1-$contact_phone2_num2-$contact_phone2_num3
"; } } } $firstname_firstletter = substr("$contact_firstname", 0, 1); unless ($contact_address eq "") { $check_address =qq~$contact_address
$contact_address2$contact_city, $contact_state $contact_zip
~; } unless ($contact_emailaddress eq "") { $check_email =qq~E-Mail $contact_emailaddress
~; } unless ($contact_phone1_num1 eq "") { $check_phone1_reverse =qq~Phone 1: W.Pages. or An.
~; } else { $check_phone1_reverse =qq~Enter Phone Number!
~; } unless ($contact_phone2_num1 eq "") { $check_phone2_reverse =qq~Phone 2: W.Pages. or An.
~; } print qq~ The ORR Home Selling Team - Prospecting System 2010 ver:1.4 - Connect.EagleSold.com ~; &header; print qq~ Prospecting Center

$id
Prospecting for $type:
$contact_firstname$contact_spouse $contact_lastname$prop_address_number $prop_address_direction $prop_address_street $prop_address2 $prop_city, $prop_zip
~; if ($INPUT{return} eq "search") { print qq~Refresh | Back To Overview
~; } else { print qq~Refresh | Back To Overview
~; } print qq~
Edit This Prospect File
~; unless ($message_data eq "") { print qq~ ~; } print qq~

Status
$record_status
Status:
Type $record_type
Load Date
 $load_datetime
Next Followup Date
 $next_followup_clean
Last Followup Date
 $last_followup_clean
Hot List Date
 $hotlist_date
Assigned To $assigned_to
Lead Source $lead_source
Price Est. \$$price_high,$price_low
Prospecting Notes
Listing(s) Prospect Is Linked To
Link With Property
Original Message Data
$message_data
Prospecting Documents
Upload New Document
Name the file:

Find file by clicking browse:
Available Letters
$show_letters

$contact_firstname$contact_spouse $contact_lastname $check_address $phone1_dnc $phone2_dnc $check_email
Enter Notes & Followup Dates Below:


 Click Here to Pick up the date Next Follow Up
 Click Here to Pick up the date Last Follow Up
Action
U
~; &footer; } } sub main { if ($INPUT{action_status} eq "Open") { print qq~ Opening File Please wait, Opening File ~; exit 0; } if ($INPUT{action_status} eq "Edit") { print qq~ Opening Edit Mode Please wait, Opening File ~; exit 0; } if ($INPUT{action_status} eq "Delete") { if ($INPUT{Verified}) { ### REMOVE NOTES my $nasth = $dbh->do("delete from trans_boardprospecting_notes where prospectingid = '$INPUT{id}'"); ### REMOVE PROSPECTING LINKS TO LISTINGS my $aaasth = $dbh->do("delete from trans_boardtranstoprospecting where prospectingid = '$INPUT{id}'"); ### 1ST REMOVE ACTUAL DOCUMENT FILES my $asth = $dbh->prepare("select did,newfileext from trans_boardprospecting_documents WHERE prospectingid = '$INPUT{id}'"); $asth->execute; while (($did,$dnewfileext) = $asth->fetchrow_array()) { unlink("/home/muncieml/public_html/connect/documents/prospecting/$did.$dnewfileext"); } ### 2ND REMOVE THE DOCUMENT DATABASE ENTRY my $aasth = $dbh->do("delete from trans_boardprospecting_documents where prospectingid = '$INPUT{id}'"); ### REMOVE ACTUAL PROSPECT FILE my $fasth = $dbh->do("delete from trans_boardprospecting where id = '$INPUT{id}'"); print qq~ Deleting File Please wait, Deleting File including notes, listing links and documents ~; exit 0; } else { print qq~ Deleting File



Are You Sure You Wish To Delete?

Removing this file will also delete saved notes and documents.
[ No Cancel ]
~; exit 0; } } if ($INPUT{action_status}) { @variables = ($INPUT{action_status},$INPUT{id}); $sql_query = "update trans_boardprospecting set status = ? where id = ?"; my $asth = $dbh->do($sql_query, undef, @variables); print qq~ Changing Status Please wait, Changing Status for File ~; exit 0; } ### SET DEFAULT SEARCH VALUES unless ($INPUT{status}) { $INPUT{status} = "All Active"; } unless ($INPUT{type}) { $INPUT{type} = "All Types"; } unless ($INPUT{assigned_show}) { $INPUT{assigned_show} = "All"; } $INPUT{agent} = "600"; $INPUT{orderby} = "DESC"; ### BUILD SQL SEARCH STATEMENT if ($INPUT{result}) { $sqlstatement = "and result = '$INPUT{result}'"; } else { if ($INPUT{status} eq "All Active") { $sqlstatement .= "and (status = 'Active - New' or status = 'Active - Hot' or status = 'Active - Warm' or status = 'Active - Cool')"; } else { $sqlstatement .= "and status = '$INPUT{status}'"; } if ($INPUT{type} eq "All Types") { #$sqlstatement .= "and (type = 'Unknown' or type = 'Listing' or type = 'Listing FSBO' or type = 'Listing Expired' or type = 'Listing and Buyer' or type = 'Buyer')"; } else { $sqlstatement .= "and type = '$INPUT{type}'"; } if ($INPUT{assigned_show} eq "All") { } elsif ($INPUT{assigned_show} eq "Patrick Orr") { $sqlstatement .= "and assigned_to = 'Patrick Orr'"; } elsif ($INPUT{assigned_show} eq "Ryan Orr") { $sqlstatement .= "and assigned_to = 'Ryan Orr'"; } elsif ($INPUT{assigned_show} eq "Aaron Orr") { $sqlstatement .= "and assigned_to = 'Aaron Orr'"; } unless ($INPUT{sortby}) { $INPUT{sortby} = "next_followup"; } if ($INPUT{sortby} eq "next_followup") { $dropdown_sortby_display = "Followup"; } elsif ($INPUT{sortby} eq "id") { $dropdown_sortby_display = "Newest"; } elsif ($INPUT{sortby} eq "oldest") { $dropdown_sortby_display = "Oldest"; $INPUT{sortby} = "id"; $INPUT{orderby} = "ASC"; } else { $dropdown_sortby_display = "$INPUT{sortby}"; } $dropdown_sortby = "\n"; } $findldate = "$INPUT{enddate}"; my $datenowasth = $dbh->prepare("select DATE_FORMAT(now(),'%Y-%m-%d')"); $datenowasth->execute; while (($nowdateis) = $datenowasth->fetchrow_array()) { $todayrealdate = $nowdateis; } my $cleandatenowasth = $dbh->prepare("select DATE_FORMAT(now(),'%b %D %Y')"); $cleandatenowasth->execute; while (($cleannowdateis) = $cleandatenowasth->fetchrow_array()) { $todayrealdate_clean = $cleannowdateis; } unless ($INPUT{enddate}) { $findldate = "$todayrealdate"; } $sqlstatement .= "and next_followup <= '$findldate'"; ### BUILD DROP DOWNS BASED ON SEARCH $dropdown_status = "\n\n"; $dropdown_type = "\n\n"; $dropdown_assignedshow = "\n\n"; print qq~ The ORR Home Selling Team - Prospecting System 2010 ver:1.4 ~; $display_full = "yes"; &header; print qq~ Return HomeProspecting Center

~; $trcolor = "1"; $trcolor2 = "2"; my $uasth = $dbh->prepare("SELECT id,status,type,lead_source,assigned_to,prop_address_number,prop_address_direction,prop_address_street,prop_address2,prop_city,prop_zip,contact_firstname,contact_spouse,contact_lastname,DATE_FORMAT(next_followup,'%b %D %Y'),previous_agent,result from trans_boardprospecting where agentid = '$INPUT{agent}' $sqlstatement ORDER BY $INPUT{sortby} $INPUT{orderby}"); $uasth->execute; while (($id,$record_status,$record_type,$lead_source,$assigned_to,$prop_address_number,$prop_address_direction,$prop_address_street,$prop_address2,$prop_city,$prop_zip,$contact_firstname,$contact_spouse,$contact_lastname,$next_followup,$previous_agent,$result) = $uasth->fetchrow_array()) { if ($next_followup eq "" || $next_followup eq "0000-00-00") { $next_followup = "Not Entered"; } if ($previous_agent eq "") { $previous_agent = "Not Entered"; } if ($assigned_to eq "") { $assigned_to = "No Assigned"; } $status =~ s/\-/
/gi; if ($record_type eq "Listing" || $record_type eq "Listing FSBO" || $record_type eq "Listing Expired" || $record_type eq "Listing and Buyer") { $show_previous_agent = "Previous Agent $previous_agent"; } if ($result eq "") { $result = "N/A"; } $result = substr($result,0,8); if (length($result) >= 6) { $result .= "..."; } $precord_status = $record_status; $precord_status =~ s/ - /
/; if ($trcolor eq $trcolor2) { $trcolor = "1"; $setcolor = "darkrow"; } else { $setcolor = "lightrow"; $trcolor++; } if ($next_followup eq $todayrealdate_clean) { $setcolor = "todayrow"; $next_followup.="
DUE TODAY!";} else { my $check_followup = $dbh->prepare("select id from trans_boardprospecting where id = '$id' AND next_followup < '$todayrealdate'"); $check_followup->execute; while (($pastdue) = $check_followup->fetchrow_array()) { if ($next_followup < $todayrealdate) { $setcolor = "cautionrow"; $dot_display = ""; $next_followup.="
PAST DUE!"; } } } $found_listing = "no"; $found_listing_mls = ""; my $usrdasth = $dbh->prepare("select MLSNUM from listings_res3 where AddressNumber LIKE '%$prop_address_number%' AND AddressStreet LIKE '%$prop_address_street%'"); $usrdasth->execute; while (($listing_mlsnumber) = $usrdasth->fetchrow_array()) { $found_listing = "yes"; $found_listing_mls = "$listing_mlsnumber"; } if ($record_type eq "Unknown" || $record_type eq "Buyer") { $show_listing =qq~ - - - ~; } elsif ($found_listing eq "yes") { $show_listing =qq~Possibly Found in MLS~; } else { if ($type eq "Buyer") { $show_listing =qq~ - - - ~; } else { $show_listing =qq~Not Found in MLS~; } } print qq~ ~; $contact_firstname = substr($contact_firstname,0,25); if (length($contact_firstname) >= 25) { $contact_firstname .= ".."; } $contact_spouse = substr($contact_spouse,0,25); if (length($contact_spouse) >= 25) { $contact_spouse .= ".."; } $contact_lastname = substr($contact_lastname,0,25); if (length($contact_lastname) >= 25) { $contact_lastname .= ".."; } $prop_address_street = substr($prop_address_street,0,35); if (length($prop_address_street) >= 35) { $prop_address_street .= ".."; } if ($record_type eq "Buyer" || $record_type eq "Unknown") { print qq~ ~; } else { print qq~ ~; } print qq~ ~; $prospect_found = "yes"; } unless ($prospect_found eq "yes") { print qq~ ~; } $dbh->disconnect; print qq~

    "If You Don't A.S.K., You Don't G.E.T." - Rex St. John
SEARCH
Status Type Assigned Followup  Click Here to Pick up the date Sort
Status Assigned Type & Source Property Address / Name Next FollowUp MLS Actions
$id
$dot_display
 $precord_status
 $assigned_to
 $record_type
from $lead_source
$contact_firstname $contact_spouse $contact_lastname$contact_firstname $contact_spouse $contact_lastname
$prop_address_number $prop_address_direction $prop_address_street
$prop_address2$prop_city, IN $prop_zip
$show_previous_agent
$next_followup
Last: $result
 $show_listing

No Prospects Created Yet! Use the link above to create one now!
~; &footer; } 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") { @variables2 = ($INPUT{next_followup},$INPUT{last_followup},$INPUT{result},$INPUT{prospectingid}); $sql_query2 = "update trans_boardprospecting set next_followup = ?, last_followup = ?, result = ? where id = ?"; my $basth = $dbh->do($sql_query2, undef, @variables2); my $usrdasth = $dbh->prepare("select firstname,lastname from users where userid = '$Cook{userid}'"); $usrdasth->execute; while (($afirstname,$alastname) = $usrdasth->fetchrow_array()) { $generateaddedby = "$afirstname $alastname"; } $notes_enter = "$INPUT{notes} | Action: $INPUT{result}"; @variables = ($INPUT{prospectingid},$generateaddedby,$notes_enter,$INPUT{viewable}); $sql_query = "INSERT INTO trans_boardprospecting_notes values ('',?,now(),?,?,?)"; my $aasth = $dbh->do($sql_query, undef, @variables); } if ($INPUT{viewable} eq "change") { @variables2 = ($INPUT{ViewChange},$INPUT{id}); $sql_query2 = "update trans_boardprospecting_notes set viewable = ? where noteid = ?"; my $basth = $dbh->do($sql_query2, undef, @variables2); &Log(qq~Note Viewable Change Prospect: $INPUT{prospectingid}~); # 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; } if ($INPUT{delete} eq "yes") { print qq~


Do You Really Want to Delete This Note?
or Go Back
~; exit 0; } elsif ($INPUT{delete} eq "do") { @variables = ($INPUT{id}); $sql_query = "DELETE FROM trans_boardprospecting_notes WHERE noteid = ?"; my $aasth = $dbh->do($sql_query, undef, @variables); &Log(qq~Note Deleted for Prospect: $INPUT{prospectingid}~); # 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,prospectingid,DATE_FORMAT(datetime, '%b %D, %Y at %h\:%i%p'),addedby,note,viewable from trans_boardprospecting_notes WHERE prospectingid = '$INPUT{prospectingid}' ORDER by datetime DESC"); $basth->execute; print qq~ Notes ~; $trcolor = "1"; $trcolor2 = "2"; while (($noteid,$prospectingid,$datetime,$addedby,$note,$viewable) = $basth->fetchrow_array()) { if ($trcolor eq $trcolor2) { $trcolor = "1"; $setcolor = "#FFFFFF"; } else { $setcolor = "#CCCCFF"; $trcolor++; } if ($viewable eq "yes") { $viewable = "Viewable"; $viewable_link = "email-green.gif"; $opp_viewable = "no"; } else { $viewable = "Not Viewable"; $viewable_link = "email-red.gif"; $opp_viewable = "yes"; } print qq~ ~; $found = "yes"; } unless ($found eq "yes") { print qq~ ~; } print qq~
$note
 $viewable Change Viewable Status Delete This Note
Added by $addedby on $datetime
No notes have been added yet! You may use the textbox to the right to save notes.
~; }