Let's see if I can add to the confusion.
You need to make your own sub html_record_form and sub html_record. These subroutines are in html.pl.
This is the basic sub html_record that you would use for your database:
Code:
sub html_record_form {
my (%rec) = @_;
print qq|
<table border=0>
<tr><td align=right valign=top width=20%><$font>Name:</font></td>
<td width=80%><input type=text name="Name" value="$rec{'Name'}" size="40" maxlength="50"></td></tr>
<tr><td align=right valign=top><$font>Address:</font></td>
<td><input type=text name="Address" value="$rec{'Address'}" size="20" maxlength="50"></td></tr>
<tr><td align=right valign=top><$font>CrossStreets:</font></td>
<td><input type=text name="CrossStreets" value="$rec{'CrossStreets'}" size="20" maxlength="50"></td></tr>
<tr><td align=right valign=top><$font>SubwayStop:</font></td>
<td><input type=text name="SubwayStop" value="$rec{'SubwayStop'}" size="20" maxlength="50"></td></tr>
<tr><td align=right valign=top><$font>Neighborhood:</font></td>
<td>|; print &build_select_field("Neighborhood","$rec{'Neighborhood'}"); print qq|</td></tr>
<tr><td align=right valign=top><$font>Phone:</font></td>
<td><input type=text name="Phone" value="$rec{'Phone'}" size="10" maxlength="10"></td></tr>
<tr><td align=right valign=top><$font>Price:</font></td>
<td>|; print &build_select_field("Price","$rec{'Price'}"); print qq|</td></tr>
<tr><td align=right valign=top><$font>Avg.Price:</font></td>
<td><input type=text name="Avg.Price" value="$rec{'Avg.Price'}" size="20" maxlength="50"></td></tr>
<tr><td align=right valign=top><$font>Cuisine:</font></td>
<td><input type=text name="Cuisine" value="$rec{'Cuisine'}" size="20" maxlength="50"></td></tr>
<tr><td align=right valign=top><$font>Ambience:</font></td>
<td><input type=text name="Ambience" value="$rec{'Ambience'}" size="20" maxlength="50"></td></tr>
<tr><td align=right valign=top><$font>Reservations:</font></td>
<td><input type=text name="Reservations" value="$rec{'Reservations'}" size="20" maxlength="50"></td></tr>
<tr><td align=right valign=top><$font>Alchohol:</font></td>
<td><input type=text name="Alchohol" value="$rec{'Alchohol'}" size="20" maxlength="50"></td></tr>
<tr><td align=right valign=top><$font>Smoking:</font></td>
<td><input type=text name="Smoking" value="$rec{'Smoking'}" size="20" maxlength="50"></td></tr>
<tr><td align=right valign=top><$font>Days/Hours:</font></td>
<td><input type=text name="Days/Hours" value="$rec{'Days/Hours'}" size="20" maxlength="50"></td></tr>
<tr><td align=right valign=top><$font>Comments:</font></td>
<td><textarea name="Comments" rows=4 cols=40>$rec{'Comments'}</textarea></td></tr>
<tr><td align=right valign=top><$font>Links:</font></td>
<td><input type=text name="Links" value="$rec{'Links'}" size="20" maxlength="50"></td></tr>
<tr><td align=right valign=top><$font>Zip:</font></td>
<td><input type=text name="Zip" value="$rec{'Zip'}" size="10" maxlength="50"></td></tr>
</TABLE>
|;
}
If you copy the above and paste it over the matching subroutine in html.pl, you will end up with the same form that you got when you used autogenerate. But now you can make changes to it.
You also should make your own html_record. Here it is:
Code:
sub html_record {
my (%rec) = @_;
print qq|
<table border=0>
<tr><td align=right valign=top width=20%><$font_color>Name:</font></td>
<td width=80%><$font>$rec{'Name'}</font></td></tr>
<tr><td align=right valign=top><$font_color>Address:</font></td>
<td><$font>$rec{'Address'}</font></td></tr>
<tr><td align=right valign=top><$font_color>CrossStreets:</font></td>
<td><$font>$rec{'CrossStreets'}"</font></td></tr>
<tr><td align=right valign=top><$font_color>SubwayStop:</font></td>
<td><$font>$rec{'SubwayStop'}</font></td></tr>
<tr><td align=right valign=top><$font_color>Neighborhood:</font></td>
<td><$font>$rec{'Neighborhood'}</font></td></tr>
<tr><td align=right valign=top><$font_color>Phone:</font></td>
<td><$font>$rec{'Phone'}</font></td></tr>
<tr><td align=right valign=top><$font_color>Price:</font></td>
<td><$font>$rec{'Price'}</font></td></tr>
<tr><td align=right valign=top><$font_color>Avg.Price:</font></td>
<td><$font>$rec{'Avg.Price'}</font></td></tr>
<tr><td align=right valign=top><$font_color>Cuisine:</font></td>
<td><$font>$rec{'Cuisine'}</font></td></tr>
<tr><td align=right valign=top><$font_color>Ambience:</font></td>
<td$rec{'Ambience'}</font></td></tr>
<tr><td align=right valign=top><$font_color>Reservations:</font></td>
<td><$font>$rec{'Reservations'}</font></td></tr>
<tr><td align=right valign=top><$font_color>Alchohol:</font></td>
<td><$font>$rec{'Alchohol'}</font></td></tr>
<tr><td align=right valign=top><$font_color>Smoking:</font></td>
<td><$font>$rec{'Smoking'}</font></td></tr>
<tr><td align=right valign=top><$font_color>Days/Hours:</font></td>
<td><$font>$rec{'Days/Hours'}</font></td></tr>
<tr><td align=right valign=top><$font_color>Comments:</font></td>
<td><$font>$rec{'Comments'}</font></td></tr>
<tr><td align=right valign=top><$font_color>Links:</font></td>
<td><$font>$rec{'Links'}</font></td></tr>
<tr><td align=right valign=top><$font_color>Zip:</font></td>
<td><$font>$rec{'Zip'}</font></td></tr>
</TABLE>
|;
}
Again, this is the same display you get when you use autogenerate. But you can work with it now.
I have tested these to make sure there aren't any syntax errors. Just be sure to match up the first line of the subroutine
sub html_record_form {
and the last line of the subroutine
}
with the lines from the subroutines I've posted here.
------------------
JPD