Any thoughts on how to make this code more succinct?
#PRINT OUT HTML FORM WITH VALUES FROM DATABASE
foreach $i (@indata)
{chop($i);
($aptname,$address,$city,$zip,$phone,$location,$bedrooms,$rentmin,$ren
tmax,$pets,$laundry,$garage,$comment,$aptweb,$aptemail,$graphic)=split
(/\|/,$i);
if (($address=~/$in{'address'}/ig && $aptname=~/$in{'aptname'}/ig) &&
($in{'delete'} eq "no"))
{print <<"PrintTag";
<html>
<head><title>$dbtitleedit</title></head>
<body bgcolor="#330099" text="#ffff00" link="#FF00FF"
alink="#FFCC99" vlink="#FF0000">
<center>
<form action="$urlcgi/aptedit.cgi" method="post">
<input type="hidden" name="delete" value="no">
<table>
<tr><td colspan="2"><center>
<h3>$dbtitleedit</h3>
<p>All fields are required. <a
href="$url/aptinstructions.html">Instructions</a></p></center>
</td>
</tr>
<tr>
<td align="right" align="center">Authorization Code:</td>
<td align="left"><input type="password" name="password" size="10"
maxlength="10">
</td>
</tr>
<tr>
<td align="right">Name of Apartments:</td>
<td align="left"><input type="text" name="aptname" size="40"
maxlength="200" value="$aptname">
</td>
</tr>
<td align="right">Street Address:</td>
<td align="left"><input type="text" name="address" size="50"
maxlength="250" value="$address">
</td>
</tr>
<td align="right">City, State:</td>
<td align="left"><input type="text" name="city" size="40"
maxlength="200" value="$city">
</td>
</tr>
<td align="right">Zip Code:</td>
<td align="left"><input type="text" name="zip" size="6" maxlength="6"
value="$zip">
</td>
</tr>
<td align="right">Phone Number:</td>
<td align="left"><input type="text" name="phone" size="13"
maxlength="13" value="$phone">
</td>
</tr>
<tr>
<td align="right">Web Address</td>
<td align="left"><input type="text" name="aptweb" size="80"
maxlength="200" value="$aptweb">
</td>
</tr>
<tr>
<td align="right">Email Address</td>
<td align="left"><input type="text" name="aptemail" size="80"
maxlength="200" value="$aptemail">
</td>
</tr>
<tr>
<td align="right">Graphic Filename</td>
<td align="left"><input type="text" name="graphic" size="80"
maxlength="200" value="$graphic">
</td>
</tr>
<tr>
<td align="right" valign="top">Location:</td>
<td align="left">
PrintTag
if ($location=~/East/ig)
{print <<"PrintTag";
<input type="checkbox" name="location" size="20" maxlength="20"
value="East " checked>East<br>
PrintTag
}
else
{print <<"PrintTag";
<input type="checkbox" name="location" size="20" maxlength="20"
value="East ">East<br>
PrintTag
}
if ($location=~/West/ig)
{print <<"PrintTag";
<input type="checkbox" name="location" size="20" maxlength="20"
value="West " checked>West<br>
PrintTag
}
else
{print <<"PrintTag";
<input type="checkbox" name="location" size="20" maxlength="20"
value="West ">West<br>
PrintTag
}
if ($location=~/North/ig)
{print <<"PrintTag";
<input type="checkbox" name="location" size="20" maxlength="20"
value="North " checked>North<br>
PrintTag
}
else
{print <<"PrintTag";
<input type="checkbox" name="location" size="20" maxlength="20"
value="North ">North<br>
PrintTag
}
if ($location=~/Southeast/ig)
{print <<"PrintTag";
<input type="checkbox" name="location" size="20" maxlength="20"
value="Southeast " checked>Southeast<br>
PrintTag
}
else
{print <<"PrintTag";
<input type="checkbox" name="location" size="20" maxlength="20"
value="Southeast ">Southeast<br>
PrintTag
}
if ($location=~/Southwest/ig)
{print <<"PrintTag";
<input type="checkbox" name="location" size="20" maxlength="20"
value="Southwest " checked>Southwest
PrintTag
}
else
{print <<"PrintTag";
<input type="checkbox" name="location" size="20" maxlength="20"
value="Southwest ">Southwest
PrintTag
}
print <<"PrintTag";
</td>
</tr>
<tr><td align="right" valign="top">Number of bedrooms:</td>
<td align="left">
PrintTag
if ($bedrooms=~/Studio/ig)
{print <<"PrintTag";
<input type="checkbox" name="bedrooms" size="20" maxlength="20"
value="Studio " checked>Studio<br>
PrintTag
}
else
{print <<"PrintTag";
<input type="checkbox" name="bedrooms" size="20" maxlength="20"
value="Studio ">Studio<br>
PrintTag
}
if ($bedrooms=~/1/ig)
{print <<"PrintTag";
<input type="checkbox" name="bedrooms" size="20" maxlength="20"
value="1 Bedroom " checked>1 Bedroom<br>
PrintTag
}
else
{print <<"PrintTag";
<input type="checkbox" name="bedrooms" size="20" maxlength="20"
value="1 Bedroom ">1 Bedroom<br>
PrintTag
}
if ($bedrooms=~/2/ig)
{print <<"PrintTag";
<input type="checkbox" name="bedrooms" size="20" maxlength="20"
value="2 Bedrooms " checked>2 Bedrooms<br>
PrintTag
}
else
{print <<"PrintTag";
<input type="checkbox" name="bedrooms" size="20" maxlength="20"
value="2 Bedrooms ">2 Bedrooms<br>
PrintTag
}
if ($bedrooms=~/3/ig)
{print <<"PrintTag";
<input type="checkbox" name="bedrooms" size="20" maxlength="20"
value="3 Bedrooms " checked>3 Bedrooms<br>
PrintTag
}
else
{print <<"PrintTag";
<input type="checkbox" name="bedrooms" size="20" maxlength="20"
value="3 Bedrooms ">3 Bedrooms<br>
PrintTag
}
if ($bedrooms=~/4/ig)
{print <<"PrintTag";
<input type="checkbox" name="bedrooms" size="20" maxlength="20"
value="4 Bedrooms " checked>4 Bedrooms<br>
PrintTag
}
else
{print <<"PrintTag";
<input type="checkbox" name="bedrooms" size="20" maxlength="20"
value="4 Bedrooms">4 Bedrooms<br>
PrintTag
}
if ($bedrooms=~/5/ig)
{print <<"PrintTag";
<input type="checkbox" name="bedrooms" size="20" maxlength="20"
value="5 Bedrooms " checked>5 Bedrooms<br>
PrintTag
}
else
{print <<"PrintTag";
<input type="checkbox" name="bedrooms" size="20" maxlength="20"
value="5 Bedrooms ">5 Bedrooms<br>
PrintTag
}
if ($bedrooms=~/6/ig)
{print <<"PrintTag";
<input type="checkbox" name="bedrooms" size="20" maxlength="20"
value="6 Bedrooms " checked>6 Bedrooms<br>
PrintTag
}
else
{print <<"PrintTag";
<input type="checkbox" name="bedrooms" size="20" maxlength="20"
value="6 Bedrooms ">6 Bedrooms<br>
PrintTag
}
print <<"PrintTag";
</td>
</tr>
<tr>
<td align="right">Rent:</td>
<td align="left">
<input type="text" name="rentmin" size="5" maxlength="5"
value="$rentmin"> to<br>
<input type="text" name="rentmax" size="5" maxlength="5"
value="$rentmax"> dollars
</td>
</tr>
<tr>
<td align="right" valign="top">Pets:</td>
<td align="left">
PrintTag
if ($pets=~/yes/ig)
{print <<"PrintTag";
<input type="radio" name="pets" value="yes " checked>Yes
PrintTag
}
else
{print <<"PrintTag";
<input type="radio" name="pets" value="yes ">Yes
PrintTag
}
if ($pets=~/Cats/ig)
{print <<"PrintTag";
<input type="radio" name="pets" value="Cats " checked>Cats
PrintTag
}
else
{print <<"PrintTag";
<input type="radio" name="pets" value="Cats ">Cats
PrintTag
}
if ($pets=~/Some Units/ig)
{print <<"PrintTag";
<input type="radio" name="pets" value="Some Units " checked>Some Units
PrintTag
}
else
{print <<"PrintTag";
<input type="radio" name="pets" value="Some Units ">Some Units
PrintTag
}
if ($pets=~/no/ig)
{print <<"PrintTag";
<input type="radio" name="pets" value="no " checked>No
PrintTag
}
else
{print <<"PrintTag";
<input type="radio" name="pets" value="no ">No
PrintTag
}
print <<"PrintTag";
</td>
</tr>
<tr>
<td align="right" valign="top">Laundry:</td>
<td align="left">
PrintTag
if ($laundry=~/yes/ig)
{print <<"PrintTag";
<input type="radio" name="laundry" value="yes " checked>Yes
PrintTag
}
else
{print <<"PrintTag";
<input type="radio" name="laundry" value="yes ">Yes
PrintTag
}
if ($laundry=~/Some Units/ig)
{print <<"PrintTag";
<input type="radio" name="laundry" value="Some Units " checked>Some Units
PrintTag
}
else
{print <<"PrintTag";
<input type="radio" name="laundry" value="Some Units ">Some Units
PrintTag
}
if ($laundry=~/no/ig)
{print <<"PrintTag";
<input type="radio" name="laundry" value="no " checked>No
PrintTag
}
else
{print <<"PrintTag";
<input type="radio" name="laundry" value="no ">No
PrintTag
}
print <<"PrintTag";
</td>
</tr>
<tr>
<td align="right" valign="top">Carport/Garage:</td>
<td align="left">
PrintTag
if ($garage=~/yes/ig)
{print <<"PrintTag";
<input type="radio" name="garage" value="Yes " checked>Yes
PrintTag
}
else
{print <<"PrintTag";
<input type="radio" name="garage" value="Yes ">Yes
PrintTag
}
if ($garage=~/Some Units/ig)
{print <<"PrintTag";
<input type="radio" name="garage" value="Some Units " checked>Some Units
PrintTag
}
else
{print <<"PrintTag";
<input type="radio" name="garage" value="Some Units ">Some Units
PrintTag
}
if ($garage=~/no/ig)
{print <<"PrintTag";
<input type="radio" name="garage" value="no " checked>No
PrintTag
}
else
{print <<"PrintTag";
<input type="radio" name="garage" value="no ">No
PrintTag
}
print <<"PrintTag";
</td>
</tr>
<tr>
<td align="right" valign="top">Comments:</td>
<td align="left" valign="top"><textarea name="comment" cols="40"
rows="4" wrap="virtual">$comment</textarea>
</td>
</tr>
<tr>
<td colspan="2" align="center" valign="top">
<input type="submit" value="Edit">
</td>
</tr>
</table>
</form>
</center>
<br><br>
<marquee behavior="scroll" direction="left" height="10"
loop="infinite" width="600">Limited Access Database, Authorization
Required.</marquee>
</body>
</html>
PrintTag
exit(0);
}
}
-Teresa Raymond
http://www.mariposanet.com
[EMAIL PROTECTED]
