This is from "toby" html.pl

these are the lines of interest. (and then some)

22-28, 49

sub html_record_form {
# --------------------------------------------------------
# The form fields that will be displayed each time a record is
# edited (including searching). You don't want to put the 
# <FORM> and </FORM tags, merely the <INPUT> tags for each field.
# The values to be displayed are in %rec and should be incorporated
# into your form. You can use &build_select_field, &build_checkbox_field 
# and &build_radio_field to generate the respective input boxes. Text and
# Textarea inputs can be inserted as is. If you turn on form auto
# generation, the program will build the forms for you (all though they may
# not be as nice). See the README for more info.

	my (%rec) = @_;
	($db_auto_generate and print &build_html_record_form(%rec) and return);
	
	# using if statement so that if $in{'company'} doesn't exist because you're doing 
	# something directly in this db, instead of copying from other 
	# you don't erase the existing value of $rec{'company'} 
	if ($in{'company'}) { 
	$rec{'Company'} = $in{'company'}; # 
	$rec{'company'} =~ s/zzzzz/&/g; # this converts zzzzz to & 
	} 

	my $font = 'Font face="Verdana, Arial, Helvetica" Size=2 Color=#003399';

	print qq|
	 <center><table style="width: 600px; height: 20px;" border="1" cellpadding="3">
      <table border="0">
        <tr>
          <td>Invoice:</td>
          <td><input name="ID2" value="$in{'ID2'}"></td>
        </tr>
        <tr>
          <td>Userid:</td>
          <td><input name="Userid" value="$in{'Userid'}"></td>
        </tr>
        <tr>
          <td>Date:</td>
          <td><input name="Date" value="$in{'Date'}"></td>
        </tr>
        <tr>
          <td>Company:</td>
          <td><input name="Company" value="$rec{'Company'}" size="40"></td>
        </tr>
        <tr>
          <td>Contact:</td>
          <td><input name="Contact" value="$in{'Contact'}" size="40"></td>
        </tr>
        <tr>
          <td>Address:</td>
          <td><input name="Address" value="$in{'Address'}" size="40"></td>
        </tr>
        <tr>
          <td>CSZ:</td>
          <td><input name="CSZ" value="$in{'CSZ'}" size="40"></td>
        </tr>
        <tr>
          <td>Phone:</td>
          <td><input name="Phone" value="$in{'Phone'}"></td>
        </tr>
        <tr>
          <td>Email:</td>
          <td><input name="Email" value="$in{'Email'}" size="40"></td>
        </tr>
       <tr><center>
          <td colspan="2">----------Card Information----------</td>
       </tr>
       <tr>
          <td colspan="2"><font color="red" size="2">* Needed only if different from above.</font></td>
        </center></tr>
        <tr>
          <td>Name on Card:<font color="red" size="2">*</font></td>
          <td><input name="Name" value="$in{'Name'}" size="40"></td>
        </tr>
        <tr>
          <td>Billing Address:<font color="red" size="2">*</font></td>
          <td><input name="Billing_Add" value="$rec{'Billing_Add'}" size="40"></td>
        </tr>
        <tr>
          <td>Billing CSZ:<font color="red" size="2">*</font></td>
          <td><input name="Billing_CSZ" value="$rec{'Billing_CSZ'}" size="40"></td>
        </tr>
        <tr>
          <td>CC Number:</td>
          <td><input name="toby" value="$rec{'toby'}"></td>
        </tr>
        <tr>
          <td>exp:</td>
          <td><input name="exp" value="$rec{'exp'}"></td>
        </tr>
        <tr>
          <td>cvs:</td>
          <td><input name="cvs" value="$rec{'cvs'}"></td>
        </tr>
        <tr>
          <td>Amount:</td>
          <td><input name="Amount" value="$in{'Amount'}"></td>
        </tr>
   		</table>
	</table>
</center>
        |;
}

sub html_record {
# --------------------------------------------------------
# How a record will be displayed. This is used primarily in 
# returning search results and how it is formatted. The record to
# be displayed will be in the %rec hash.

	my (%rec) = @_;		# Load any defaults to put in the VALUE field.
	($db_auto_generate and print &build_html_record(%rec) and return);
	
	my $font_color = 'Font face="Verdana, Arial, Helvetica" Size=2 Color=#003399';
	my $font       = 'Font face="Verdana, Arial, Helvetica" Size=2';
	
	print qq|
	<table border="0">
        <tr>
          <td>Invoice:</td>
          <td>$rec{'ID2'}</td>
        </tr>
        <tr>
          <td>Userid:</td>
          <td>$rec{'Userid'}</td>
        </tr>
        <tr>
          <td>Date:</td>
          <td>$rec{'Date'}</td>
        </tr>
        <tr>
          <td>Company:</td>
          <td>$rec{'Company'}</td>
        </tr>
        <tr>
          <td>Contact:</td>
          <td>$rec{'Contact'}</td>
        </tr>
        <tr>
          <td>Address:</td>
          <td>$rec{'Address'}</td>
        </tr>
        <tr>
          <td>CSZ:</td>
          <td>$rec{'CSZ'}</td>
        </tr>
        <tr>
          <td>Phone:</td>
          <td>$rec{'Phone'}</td>
        </tr>
        <tr>
          <td>Email:</td>
          <td>$rec{'Email'}</td>
        </tr>
        <tr><center>
          <td colspan="2">----------Card Information----------</td>
       </center></tr>
        <tr>
          <td>Name on Card:</td>
          <td>$rec{'Name'}</td>
        </tr>
        <tr>
          <td>Billing Address:</td>
          <td>$rec{'Billing_Add'}</td>
        </tr>
        <tr>
          <td>Billing CSZ:</td>
          <td>$rec{'Billing_CSZ'}</td>
        </tr>
        <tr>
          <td>toby:</td>
          <td>$rec{'toby'}</td>
        </tr>
        <tr>
          <td>exp:</td>
          <td>$rec{'exp'}</td>
        </tr>
        <tr>
          <td>cvs:</td>
          <td>$rec{'cvs'}</td>
        </tr>
        <tr>
          <td>Amount:</td>
          <td>$rec{'Amount'}</td>
        <br>
        <br>
        <br>
        </tr>
    </table>
    |;
}