There's the html.pl file, I've changed the look of how the form appears and that was all I have changed on the html file.
Code:
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);
my $font = 'Font face="Verdana, Arial, Helvetica" Size=2 Color=#000066';
print qq|
<TABLE WIDTH="50%" CELLPADDING=1 CELLSPACING=2 BORDER=0 BGCOLOR="#000066">
<TR><TD ALIGN="Left" VALIGN="Center" WIDTH="25%"><Font COLOR="#FFFFFF" SIZE="-1"><B>GCID #</B></FONT>
<INPUT TYPE="TEXT" NAME="GCID" VALUE="$rec{'GCID'}" SIZE="6" MAXLENGTH="8"></TD>
<TD ALIGN="Right" VALIGN="Center"><Font COLOR="#FFFFFF" SIZE="-1"><b> Type:</b></FONT>
|; print &build_select_field ("Type", "$rec{'Type'}"); print qq|></TD></TR>
<TR><TD ALIGN="Left" VALIGN="Center" WIDTH="25%" BGCOLOR="#FFFFFF"><$font>Registered By: </FONT>
<BR><INPUT TYPE="TEXT" NAME="RegisteredBy" VALUE="$rec{'RegisteredBy'}" SIZE="25" MAXLENGTH="255"><BR><BR>
<$font>Boarding : </FONT>
<BR><INPUT TYPE="TEXT" NAME="Boarding" VALUE="$rec{'Boarding'}" SIZE="25" MAXLENGTH="255"><BR><BR>
<$font>Owner : </FONT>
<BR><INPUT TYPE="TEXT" NAME="Owner" VALUE="$rec{'Owner'}" SIZE="25" MAXLENGTH="255"><BR><BR>
<$font>Breeder : </FONT>
<BR><INPUT TYPE="TEXT" NAME="Breeder" VALUE="$rec{'Breeder'}" SIZE="25" MAXLENGTH="255"><BR><BR>
|;
if ($per_admin) {
print qq|
<$font>Genetics : <br></FONT>
<TEXTAREA NAME="Awards" ROWS="2" COLS="20" WRAP="VIRTUAL" MAXLENGTH="255">$rec{'Genetics'}</TEXTAREA><br><br></TR>
|;
}
else {
print qq|
<input type="hidden" NAME="Genetics" VALUE="$rec{'Genetics'}">
|;
}
print qq|
<TD ALIGN="Center" VALIGN="Top" BGCOLOR="#FFFFFF"><$font><b><INPUT TYPE="TEXT" NAME="Name" VALUE="$rec{'Name'}" SIZE="18" MAXLENGTH="18"></b></FONT><BR>
<$font><INPUT TYPE="TEXT" NAME="Year" VALUE="$rec{'Year'}"SIZE="5" MAXLENGTH="7"> <INPUT TYPE="TEXT" NAME="Color" VALUE="$rec{'Color'}"> <INPUT TYPE="TEXT" NAME="Breed" VALUE="$rec{'Breed'}"> |; print &build_select_field ("Gender", "$rec{'Gender'}"); print qq|</FONT><BR>
<FONT COLOR="#660000"><INPUT TYPE="TEXT" NAME="Sire" VALUE="$rec{'Sire'}" SIZE="25" MAXLENGTH="255">  <I><B>X</B></I>  <INPUT TYPE="TEXT" NAME="Dam" VALUE="$rec{'Dam'}" SIZE="25" MAXLENGTH="255">
<BR><BR>
<$font>Trained In : <br></FONT>
<TEXTAREA NAME="TrainedIn" ROWS="4" COLS="40" WRAP="VIRTUAL" MAXLENGTH="255">$rec{'TrainedIn'}</TEXTAREA><br><br>
<$font>Awards : <br></FONT>
<TEXTAREA NAME="Awards" ROWS="4" COLS="40" WRAP="VIRTUAL" MAXLENGTH="255">$rec{'Awards'}</TEXTAREA><br><br></TD></TR></TD></TR>
</TABLE>
|;
}
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=#000066';
my $font = 'Font face="Verdana, Arial, Helvetica" Size=2';
print qq|
<TABLE WIDTH="50%" CELLPADDING=1 CELLSPACING=2 BORDER=0 BGCOLOR="#000066">
<TR><TD ALIGN="Left" VALIGN="Center" WIDTH="25%"><Font COLOR="#FFFFFF" SIZE="-1"><b> #</b></FONT>
<FONT COLOR=#FFFFFF><b>$rec{'GCID'}</Font></TD>
<TD ALIGN="Right" VALIGN="Center">
<FONT COLOR=#FFFFFF><b>$rec{'Type'}</Font></TD></TR>
<TR><TD ALIGN="Left" VALIGN="Center" WIDTH="25%" BGCOLOR="#FFFFFF"><$font>Registered By: </FONT>
<BR><$font>$rec{'RegisteredBy'}</Font><BR><BR>
<$font>Boarding : </FONT>
<BR><$font>$rec{'Boarding'}</Font><BR><BR>
<$font>Owner : </FONT>
<BR><$font>$rec{'Owner'}</Font><BR><BR>
<$font>Breeder : </FONT>
<BR><$font>$rec{'Breeder'}</Font><BR><BR>
|;
if ($per_admin) {
print qq|
<$font>Genetics : </FONT>
<BR><$font>$rec{'Genetics'}</Font></TD>
|;
}
else {
print qq|
<input type="hidden" NAME="Genetics" VALUE="$rec{'Genetics'}">
|;
}
print qq|
<TD ALIGN="Center" VALIGN="Top" BGCOLOR="#FFFFFF"><$font><b><$font>$rec{'Name'}</Font></b></FONT><BR>
<$font><$font>$rec{'Year'}</Font> <$font>$rec{'Color'}</Font> <$font>$rec{'Breed'}</Font> <$font>$rec{'Gender'}</Font><BR>
<FONT COLOR="#660000"><$font><i>$rec{'Sire'}</i></Font>  <I><B>X</B></I>  <$font><i>$rec{'Dam'}</i></Font>
<BR><BR>
<$font>Trained In : <br></FONT>
<$font>$rec{'TrainedIn'}</Font><br><br>
<$font>Awards : <br></FONT>
<$font>$rec{'Awards'}</Font><br><br></TD></TR></TD></TR>
</TABLE>
|;
}
