#!/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; if ($INPUT{action} eq "show_flyer") { &show_flyer; } else { &main; } sub main { ### RUN CHECKS SET DEFAULTS if ($INPUT{dis_photos} =~ "1") { $dis_photos_1 = "selected"; } if ($INPUT{dis_photos} =~ "2") { $dis_photos_2 = "selected"; } if ($INPUT{dis_photos} =~ "3") { $dis_photos_3 = "selected"; } if ($INPUT{dis_photos} =~ "4") { $dis_photos_4 = "selected"; } if ($INPUT{dis_photos} =~ "5") { $dis_photos_5 = "selected"; } if ($INPUT{dis_photos} =~ "6") { $dis_photos_6 = "selected"; } if ($INPUT{dis_photos} =~ "7") { $dis_photos_7 = "selected"; } if ($INPUT{dis_photos} =~ "8") { $dis_photos_8 = "selected"; } if ($INPUT{dis_photos} =~ "9") { $dis_photos_9 = "selected"; } if ($INPUT{dis_photos} =~ "10") { $dis_photos_10 = "selected"; } if ($INPUT{dis_photos} =~ "11") { $dis_photos_11 = "selected"; } if ($INPUT{dis_photos} =~ "12") { $dis_photos_12 = "selected"; } if ($INPUT{dis_photos} =~ "13") { $dis_photos_13 = "selected"; } if ($INPUT{dis_photos} =~ "14") { $dis_photos_14 = "selected"; } if ($INPUT{dis_photos} =~ "15") { $dis_photos_15 = "selected"; } if ($INPUT{dis_photos} =~ "16") { $dis_photos_16 = "selected"; } if ($INPUT{dis_photos} =~ "17") { $dis_photos_17 = "selected"; } if ($INPUT{dis_photos} =~ "18") { $dis_photos_18 = "selected"; } if ($INPUT{dis_photos} =~ "19") { $dis_photos_19 = "selected"; } if ($INPUT{dis_photos} =~ "20") { $dis_photos_20 = "selected"; } if ($INPUT{dis_photos} =~ "21") { $dis_photos_21 = "selected"; } if ($INPUT{dis_photos} =~ "22") { $dis_photos_22 = "selected"; } if ($INPUT{dis_photos} =~ "23") { $dis_photos_23 = "selected"; } if ($INPUT{dis_photos} =~ "24") { $dis_photos_24 = "selected"; } if ($INPUT{dis_photos} =~ "25") { $dis_photos_25 = "selected"; } if ($INPUT{dis_photos} =~ "26") { $dis_photos_26 = "selected"; } if ($INPUT{dis_photos} =~ "27") { $dis_photos_27 = "selected"; } if ($INPUT{dis_photos} =~ "28") { $dis_photos_28 = "selected"; } if ($INPUT{dis_photos} =~ "29") { $dis_photos_29 = "selected"; } if ($INPUT{dis_photos} =~ "30") { $dis_photos_30 = "selected"; } unless ($INPUT{dis_banner}) { $INPUT{dis_banner} = "NO BANNER"; } if ($INPUT{dis_banner}) { $get_dis_banner = ""; } if ($INPUT{remark_size}) { $get_remark_size = ""; } if ($INPUT{hotline_msg}) { } else { $INPUT{hotline_msg} = "FOR MORE INFO CALL 1-866-643-4111 EXT: ";} if ($INPUT{hotline_code}) { } else { $INPUT{hotline_code} = "XXXX"; } unless ($INPUT{remark_size}) { $INPUT{hotline_display} = "on"; $INPUT{show_price} = "on"; $INPUT{show_payment} = "on"; $INPUT{show_taxes} = "on"; } if ($INPUT{hotline_display}) { $get_hotline_display = "checked"; } if ($INPUT{show_price}) { $get_show_price = "checked"; } if ($INPUT{show_payment}) { $get_show_payment = "checked"; } if ($INPUT{show_taxes}) { $get_show_taxes = "checked"; } if ($INPUT{hide_roommeasurements}) { $get_hide_roommeasurements = "checked"; } print qq~
FLYER DESIGN OPTIONS ( Preview below )
Choose Banner

Remarks Size

 Select Which Photos to Display (30)
 Message or Proquest 800#

Proquest 800# Hotline
Enter Code: Show
 Display
Price
Payment
Taxes
HIDE
Rooms
 Print Preview
~; &show_flyer; } sub show_flyer { 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; $oasth = $dbh->prepare("select * from listings_res3 where MLSNUM = ?"); $oasth->execute($INPUT{mlsnumber}); while ($data_ref = $oasth->fetchrow_hashref()) { %db = %$data_ref; $TotalSqFt = &commas($db{TotalSqFt}); unless ($INPUT{remark_size}) { $remark_size = "10px"; } else { $remark_size = "$INPUT{remark_size}"; } ($LivingRoomLength,$LivingRoomWidth) = split(/X/i,$db{LivingRoomSize}); ($GreatRoomLength,$GreatRoomWidth) = split(/X/i,$db{GreatRoomSize}); ($FamilyRoomLength,$FamilyRoomWidth) = split(/X/i,$db{FamilyRoomSize}); ($KitchenLength,$KitchenWidth) = split(/X/i,$db{KitchenSize}); ($DiningRoomLength,$DiningRoomWidth) = split(/X/i,$db{DiningRoomSize}); ($DenStudyLength,$DenStudyWidth) = split(/X/i,$db{DenStudySize}); ($Bedroom1Length,$Bedroom1Width) = split(/X/i,$db{Bedroom1Size}); ($Bedroom2Length,$Bedroom2Width) = split(/X/i,$db{Bedroom2Size}); ($Bedroom3Length,$Bedroom3Width) = split(/X/i,$db{Bedroom3Size}); ($Bedroom4Length,$Bedroom4Width) = split(/X/i,$db{Bedroom4Size}); ($Bedroom5Length,$Bedroom5Width) = split(/X/i,$db{Bedroom5Size}); ($Bathroom1Length,$Bathroom1Width) = split(/X/i,$db{Bathroom1Size}); ($Bathroom2Length,$Bathroom2Width) = split(/X/i,$db{Bathroom2Size}); ($UtilityRoomLength,$UtilityRoomWidth) = split(/X/i,$db{UtilityRoomSize}); ($OtherRoom1Length,$OtherRoom1Width) = split(/X/i,$db{OtherRoom1Size}); ($OtherRoom2Length,$OtherRoom2Width) = split(/X/i,$db{OtherRoom2Size}); ($OtherRoom3Length,$OtherRoom3Width) = split(/X/i,$db{OtherRoom3Size}); ($Outbuilding1Length,$Outbuilding1Width) = split(/X/i,$db{Outbuilding1Size}); unless ($db{GreatRoomLevel}) { $db{GreatRoomLevel} = "-"; } unless ($db{FamilyRoomLevel}) { $db{FamilyRoomLevel} = "-"; } unless ($db{KitchenLevel}) { $db{KitchenLevel} = "-"; } unless ($db{DiningRoomLevel}) { $db{DiningRoomLevel} = "-"; } unless ($db{DenStudyLevel}) { $db{DenStudyLevel} = "-"; } unless ($db{Bedroom1Level}) { $db{Bedroom1Level} = "-"; } unless ($db{Bedroom2Level}) { $db{Bedroom2Level} = "-"; } unless ($db{Bedroom3Level}) { $db{Bedroom3Level} = "-"; } unless ($db{Bedroom4Level}) { $db{Bedroom4Level} = "-"; } unless ($db{Bedroom5Level}) { $db{Bedroom5Level} = "-"; } unless ($db{Bathroom1Level}) { $db{Bathroom1Level} = "-"; } unless ($db{Bathroom2Level}) { $db{Bathroom2Level} = "-"; } unless ($db{OtherRoom1Level}) { $db{OtherRoom1Level} = "-"; } unless ($db{OtherRoom2Level}) { $db{OtherRoom2Level} = "-"; } unless ($db{UtilityRoomLevel}) { $db{UtilityRoomLevel} = "-"; } unless ($db{LivingRoomLevel}) { $db{LivingRoomLevel} = "-"; } unless ($LivingRoomLength) { $LivingRoomLength = "-"; } unless ($LivingRoomWidth) { $LivingRoomWidth = "-"; } unless ($GreatRoomLength) { $GreatRoomLength = "-"; } unless ($GreatRoomWidth) { $GreatRoomWidth = "-"; } unless ($FamilyRoomLength) { $FamilyRoomLength = "-"; } unless ($FamilyRoomWidth) { $FamilyRoomWidth = "-"; } unless ($KitchenLength) { $KitchenLength = "-"; } unless ($KitchenWidth) { $KitchenWidth = "-"; } unless ($DiningRoomLength) { $DiningRoomLength = "-"; } unless ($DiningRoomWidth) { $DiningRoomWidth = "-"; } unless ($DenStudyLength) { $DenStudyLength = "-"; } unless ($DenStudyWidth) { $DenStudyWidth = "-"; } unless ($Bedroom1Length) { $Bedroom1Length = "-"; } unless ($Bedroom1Width) { $Bedroom1Width = "-"; } unless ($Bedroom2Length) { $Bedroom2Length = "-"; } unless ($Bedroom2Width) { $Bedroom2Width = "-"; } unless ($Bedroom3Length) { $Bedroom3Length = "-"; } unless ($Bedroom3Width) { $Bedroom3Width = "-"; } unless ($Bedroom4Length) { $Bedroom4Length = "-"; } unless ($Bedroom4Width) { $Bedroom4Width = "-"; } unless ($Bedroom5Length) { $Bedroom5Length = "-"; } unless ($Bedroom5Width) { $Bedroom5Width = "-"; } unless ($Bathroom1Length) { $Bathroom1Length = "-"; } unless ($Bathroom1Width) { $Bathroom1Width = "-"; } unless ($Bathroom2Length) { $Bathroom2Length = "-"; } unless ($Bathroom2Width) { $Bathroom2Width = "-"; } unless ($OtherRoom1Length) { $OtherRoom1Length = "-"; } unless ($OtherRoom1Width) { $OtherRoom1Width = "-"; } unless ($OtherRoom2Length) { $OtherRoom2Length = "-"; } unless ($OtherRoom2Width) { $OtherRoom2Width = "-"; } unless ($UtilityRoomLength) { $UtilityRoomLength = "-"; } unless ($UtilityRoomWidth) { $UtilityRoomWidth = "-"; } $LivingRoomLength =~ s/CHR1/\'/gi; $LivingRoomWidth =~ s/CHR1/\'/gi; $GreatRoomLength =~ s/CHR1/\'/gi; $GreatRoomWidth =~ s/CHR1/\'/gi; $FamilyRoomLength =~ s/CHR1/\'/gi; $FamilyRoomWidth =~ s/CHR1/\'/gi; $KitchenLength =~ s/CHR1/\'/gi; $KitchenWidth =~ s/CHR1/\'/gi; $DiningRoomLength =~ s/CHR1/\'/gi; $DiningRoomWidth =~ s/CHR1/\'/gi; $DenStudyLength =~ s/CHR1/\'/gi; $DenStudyWidth =~ s/CHR1/\'/gi; $Bedroom1Length =~ s/CHR1/\'/gi; $Bedroom1Width =~ s/CHR1/\'/gi; $Bedroom2Length =~ s/CHR1/\'/gi; $Bedroom2Width =~ s/CHR1/\'/gi; $Bedroom3Length =~ s/CHR1/\'/gi; $Bedroom3Width =~ s/CHR1/\'/gi; $Bedroom4Length =~ s/CHR1/\'/gi; $Bedroom4Width =~ s/CHR1/\'/gi; $Bedroom5Length =~ s/CHR1/\'/gi; $Bedroom5Width =~ s/CHR1/\'/gi; $Bathroom1Length =~ s/CHR1/\'/gi; $Bathroom1Width =~ s/CHR1/\'/gi; $Bathroom2Length =~ s/CHR1/\'/gi; $Bathroom2Width =~ s/CHR1/\'/gi; $OtherRoom1Length =~ s/CHR1/\'/gi; $OtherRoom1Width =~ s/CHR1/\'/gi; $OtherRoom2Length =~ s/CHR1/\'/gi; $OtherRoom2Width =~ s/CHR1/\'/gi; $UtilityRoomLength =~ s/CHR1/\'/gi; $UtilityRoomWidth =~ s/CHR1/\'/gi; $LivingRoomLength =~ s/CHR2/\"/gi; $LivingRoomWidth =~ s/CHR2/\"/gi; $GreatRoomLength =~ s/CHR2/\"/gi; $GreatRoomWidth =~ s/CHR2/\"/gi; $FamilyRoomLength =~ s/CHR2/\"/gi; $FamilyRoomWidth =~ s/CHR2/\"/gi; $KitchenLength =~ s/CHR2/\"/gi; $KitchenWidth =~ s/CHR2/\"/gi; $DiningRoomLength =~ s/CHR2/\"/gi; $DiningRoomWidth =~ s/CHR2/\"/gi; $DenStudyLength =~ s/CHR2/\"/gi; $DenStudyWidth =~ s/CHR2/\"/gi; $Bedroom1Length =~ s/CHR2/\"/gi; $Bedroom1Width =~ s/CHR2/\"/gi; $Bedroom2Length =~ s/CHR2/\"/gi; $Bedroom2Width =~ s/CHR2/\"/gi; $Bedroom3Length =~ s/CHR2/\"/gi; $Bedroom3Width =~ s/CHR2/\"/gi; $Bedroom4Length =~ s/CHR2/\"/gi; $Bedroom4Width =~ s/CHR2/\"/gi; $Bedroom5Length =~ s/CHR2/\"/gi; $Bedroom5Width =~ s/CHR2/\"/gi; $Bathroom1Length =~ s/CHR2/\"/gi; $Bathroom1Width =~ s/CHR2/\"/gi; $Bathroom2Length =~ s/CHR2/\"/gi; $Bathroom2Width =~ s/CHR2/\"/gi; $OtherRoom1Length =~ s/CHR2/\"/gi; $OtherRoom1Width =~ s/CHR2/\"/gi; $OtherRoom2Length =~ s/CHR2/\"/gi; $OtherRoom2Width =~ s/CHR2/\"/gi; $UtilityRoomLength =~ s/CHR2/\"/gi; $UtilityRoomWidth =~ s/CHR2/\"/gi; ################ MORTGAGE CALCULATOR ### UPDATED 01/10/2010 ########################### $preprice = $db{Price}; $principal = $db{Price}*0.965; $pmiupfront = $principal*0.0125; $principal = $principal+$pmiupfront; $interest = 4.0; $monthlyinterest = ($interest)/1200; $termyear = 30; $numberofmonths = $termyear*12; $temp = 1 + $monthlyinterest; $expon = 1; for ($p = 0; $p < $numberofmonths; $p++) { $expon = $temp * $expon; } $expon = 1 / $expon; $expon = 1 - $expon; $expon = $monthlyinterest / $expon; $mtax = $db{EstimatedAnnualTax}; $mtax = $mtax / 12; $mtax=sprintf("%.2f",$mtax); $mtax = &commas($mtax); $hyrinsurance = 500; $hyrinsurance=sprintf("%.2f",$hyrinsurance); $hyrinsurance = &commas($hyrinsurance); $hmoinsurance = $hyrinsurance / 12; $pmiyr = $principal*0.0066; $pmiyr=sprintf("%.2f",$pmiyr); $pmiyr = &commas($pmiyr); $pmimo = $pmiyr/12; $monthlypayment = $principal * $expon; $monthlypayment = $monthlypayment + $mtax + $hmoinsurance + $pmimo; $monthlypayment=sprintf("%.2f",$monthlypayment); $monthlypayment = &commas($monthlypayment); $downpaymentrequired = $db{Price}*0.035; $downpaymentrequired=sprintf("%.2f",$downpaymentrequired); $downpaymentrequired = &commas($downpaymentrequired); $principal=sprintf("%.2f",$principal); $principal = &commas($principal); ############################################################################## $db{Price} = &commas($db{Price}); $monthlypayment = &commas($monthlypayment); $mortgagetax = $db{EstimatedAnnualTax}; $db{EstimatedAnnualTax} = &commas($db{EstimatedAnnualTax}); $paymentdisclosure =qq~ * Payment estimated on excellent credit and job history including: \$$db{Price} sales price with \$$principal loan amount (including upfront pmi and \$$downpaymentrequired downpayment, $interest% interest rate and \$$db{EstimatedAnnualTax} annual taxes, \$$hyrinsurance annual homeowners insurance and \$$pmiyr annual PMI insurance. Based on estimated FHA rates and loan terms as of August 13th, 2012. For an exact payment on this property and to see if you may qualify please contact your lender. ~; if ($db{SaleRent} eq "S") { $db{SaleRent} = "For Sale"; } else { $db{SaleRent} = "For Rent"; } if ($db{Address2}) { $db{Address2} = "$db{Address2}
"; } else { } $printoffice =qq~
Eagle Real Estate, Inc.
For More Information Contact
The ORR Home Selling Team
765-212-1111 Patrick / 765-744-9500 Ryan
~; $realoffice = "Listing Office; $db{ListingOffice1Name}, Listing Agent; $db{AgentName}"; @thefeatures = split(/\|/,$db{UsesFeaturesDataToChoose}); $startcount = "0"; foreach $one (@thefeatures) { $yasth = $dbh->prepare("select featurename,categoryname from features where codenum = ?"); $yasth->execute($one); while (($featurename,$categoryname) = $yasth->fetchrow_array()) { $categoryname = lc($categoryname); $featurename = lc($featurename); $realname =~ s/CHR1/\'/gi; $realname =~ s/CHR2/\"/gi; $categoryname =~ s/CHR1/\'/gi; $categoryname =~ s/CHR2/\"/gi; $featurename = substr($featurename,0,13); if (length($featurename) >= 13) { $featurename .= ".."; } $showfeaturestable .= "\"\"$categoryname $featurename\n"; if ($startcount eq "1") { $showfeaturestable .= "\n"; $startcount = "0"; } else { $startcount++; } } } ### make sure values are not to long to mess up the display 01/18/2010 #### $db{TaxIDNUM} = substr($db{TaxIDNUM},0,16); if (length($db{TaxIDNUM}) >= 16) { $db{TaxIDNUM} .= ".."; } $db{ElementarySchool} = substr($db{ElementarySchool},0,12); if (length($db{ElementarySchool}) >= 12) { $db{ElementarySchool} .= ".."; } $db{MiddleSchool} = substr($db{MiddleSchool},0,12); if (length($db{MiddleSchool}) >= 12) { $db{MiddleSchool} .= ".."; } $db{HighSchool} = substr($db{HighSchool},0,12); if (length($db{HighSchool}) >= 12) { $db{HighSchool} .= ".."; } $db{LandValue} = &commas($db{LandValue}); $db{ImproveValue} = &commas($db{ImproveValue}); if ($db{Zoning} eq "") { $db{Zoning} = "Not Listed"; } if ($db{Garage} eq "") { $db{Garage} = "Not Listed"; } if ($db{OutbuildingType} eq "") { $db{OutbuildingType} = "Not Listed"; } if ($db{TotalSqFt} eq "") { $db{TotalSqFt} = "Not Listed"; } else { $db{TotalSqFt} = &commas($db{TotalSqFt}); } if ($db{Reserved} eq "") { $db{Reserved} = "Nothing Listed"; } if ($db{ElementarySchool} eq "Pleasant View / Yorktown") { $db{ElementarySchool} = "Pl. View/Yorktown"; } &pull_photo_data_for_property_details_page_print($db{MLSNUM},1); # routine at the bottom of config.idx if ($totalpictures > 2) { $showgallery = "$showthumbs

"; } else { $showgallery = ""; } if ($ENV{QUERY_STRING} =~ /City/) { $showresultsback =qq~~; } else { $showresultsback =qq~~; } $searchstrings = "City=$INPUT{City}&County=$INPUT{County}&MinPrice=$INPUT{MinPrice}&MaxPrice=$INPUT{MaxPrice}&MinBed=$INPUT{MinBed}&MinBath=$INPUT{MinBath}&Acreage=$INPUT{Acreage}&YBuilt=$INPUT{YBuilt}&MinSF=$INPUT{MinSF}&MaxSF=$INPUT{MaxSF}&elementaryschool=$INPUT{elementaryschool}&middleschool=$INPUT{middleschool}&highschool=$INPUT{highschool}&Address=$INPUT{Address}&Remarks=$INPUT{Remarks}&Show=$INPUT{Show}&sortby=$INPUT{sortby}&orderby=$INPUT{orderby}&Page=$INPUT{Page}"; if ($INPUT{print_preview} eq "on") { print qq~ ~; } $db{Price} = "\$$db{Price}"; unless ($INPUT{show_price} eq "on") { $db{Price} = ""; } print qq~ The ORR Home Selling Team > $db{City} Real Estate Search > $db{AddressNumber} $db{AddressDirection} $db{AddressStreet}, $db{City}

~; if ($INPUT{show_payment} eq "on") { print qq~estimated payment as
low as \$$monthlypayment / month*~; } print qq~
$db{Price}
Print
 http://$db{MLSNUM}.ORRHomes.com


~; if ($INPUT{hotline_display} eq "on") { print qq~

$INPUT{hotline_msg}$INPUT{hotline_code}

~; } print qq~ $showgallery

$db{Remarks}

General Information
Total Rooms $db{Rooms}

Bedrooms $db{Bedrooms}

Full Bathrooms $db{FullBaths}

Half Bathrooms $db{HalfBaths}

Square Feet $db{TotalSqFt}

Year Built $db{YearBuilt}

Acres $db{Acres}

County $db{County}

Township $db{Township}

Subdivision $db{Subdivision}

Zoning $db{Zoning}
Garage $db{Garage}

Outbuilding $db{OutbuildingType}

Tax ID \#$db{TaxIDNUM}

Land Value \$$db{LandValue}

Improv. Value \$$db{ImproveValue}

Subdivision $db{Subdivision}

Elem. School $db{ElementarySchool}

Middle School $db{MiddleSchool}

High School $db{HighSchool}

~; if ($INPUT{show_taxes} eq "on") { print qq~ Est. Annual Taxes \$$db{EstimatedAnnualTax}

~; } print qq~
Legal Description: $db{Legal}
Reserved Items: $db{Reserved}
Directions: $db{Directions}

$showfeaturestable
Property Features
~; if ($INPUT{hide_roommeasurements} eq "on") { } else { print qq~
Room Measurements
Room
 
Level
 Room
 
Level
Bedroom 1
$Bedroom1Length
x
$Bedroom1Width
$db{Bedroom1Level}
 Kitchen
$KitchenLength
x
$KitchenWidth
$db{KitchenLevel}
Bedroom 2
$Bedroom2Length
x
$Bedroom2Width
$db{Bedroom2Level}
 Dining Room
$DiningRoomLength
x
$DiningRoomWidth
$db{DiningRoomLevel}
Bedroom 3
$Bedroom3Length
x
$Bedroom3Width
$Bedroom3Level
 Family Room
$FamilyRoomLength
x
$FamilyRoomWidth
$db{FamilyRoomLevel}
Bedroom 4
$Bedroom4Length
x
$Bedroom4Width
$db{Bedroom4Level}
 Den / Study
$DenStudyLength
x
$DenStudyWidth
$db{DenStudyLevel}
Bedroom 5
$Bedroom5Length
x
$Bedroom5Width
$db{Bedroom5Level}
 Other Room
$OtherRoom1Length
x
$OtherRoom1Width
$db{OtherRoom1Level}
Bathroom 1
$Bathroom1Size
 Other Room
$OtherRoom2Length
x
$OtherRoom2Width
$db{OtherRoom2Level}
Bathroom 2
$Bathroom2Size
 Other Room
$OtherRoom3Length
x
$OtherRoom3Width
$db{OtherRoom3Level}
Living Room
$LivingRoomLength
x
$LivingRoomWidth
$db{LivingRoomLevel}
 Utility Room
$UtilityRoomLength
x
$UtilityRoomWidth
$db{UtilityRoomLevel}
Great Room
$GreatRoomLength
x
$GreatRoomWidth
$db{GreatRoomLevel}
  
~; } print qq~
The information herein is believed to be accurate and timely, but no warranty as such is expressed or implied. IDX Information is provided for consumers' personal, non-commercial use. $realoffice
~; if ($INPUT{show_payment} eq "on") { print qq~ $paymentdisclosure ~; } $dbh->disconnect; print qq~ ~; if ($INPUT{print_preview} eq "on") { print qq~ ~; } print qq~ ~; } } sub commas { local($_)=@_; 1 while s/(.*\d)(\d\d\d)/$1,$2/; $_; }