First I really want to thank you for all of your help. (but however,) Its still not working
%db_def = (
Name => [0, 'alpha', 40,60,1,'',''],
Email => [1, 'alpha', 40, 60, 1, '', '.+\@.+\..+'],
Branch => [2, 'alpha', 40, 40, 1, '', ''],
Units_Commanded => [3, 'alpha', '40x3', 200, 0, '', ''],
Locations => [4, 'alpha', '40x3', 200, 0, '', ''],
Competencies => [5, 'alpha', '40x6', 400, 0, '', ''],
And from html.pl
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 WIDTH="475" CELLPADDING=0 CELLSPACING=0 BORDER=1 BGCOLOR="#CCCC99">
<TR><TD ALIGN="Right" VALIGN="TOP" WIDTH="20%"><$font_color>ID:</FONT></TD>
<TD WIDTH="80%"> <$font>$rec{'ID'}</Font></TD></TR>
<TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>Title:</FONT></TD>
<TD> <$font>$rec{'Title'}</Font></TD></TR>
|;
if ($rec{'Email'} ne "") {
print qq|
<TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>Email Address:</FONT></TD>
<TD><$font><a href="mailto:$rec{'Email'}">$rec{'Email'}</a></FONT></TD></TR>
|;
}
print qq|
<TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>URL: </FONT></TD>
<TD> <$font><A HREF="$rec{'URL'}">$rec{'URL'}</A></Font></TD></TR>
You can see the testing site at
http://www.companycommand.com/testing.htm
I am sure this is still something really silly
THANKS!
%db_def = (
Name => [0, 'alpha', 40,60,1,'',''],
Email => [1, 'alpha', 40, 60, 1, '', '.+\@.+\..+'],
Branch => [2, 'alpha', 40, 40, 1, '', ''],
Units_Commanded => [3, 'alpha', '40x3', 200, 0, '', ''],
Locations => [4, 'alpha', '40x3', 200, 0, '', ''],
Competencies => [5, 'alpha', '40x6', 400, 0, '', ''],
And from html.pl
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 WIDTH="475" CELLPADDING=0 CELLSPACING=0 BORDER=1 BGCOLOR="#CCCC99">
<TR><TD ALIGN="Right" VALIGN="TOP" WIDTH="20%"><$font_color>ID:</FONT></TD>
<TD WIDTH="80%"> <$font>$rec{'ID'}</Font></TD></TR>
<TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>Title:</FONT></TD>
<TD> <$font>$rec{'Title'}</Font></TD></TR>
|;
if ($rec{'Email'} ne "") {
print qq|
<TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>Email Address:</FONT></TD>
<TD><$font><a href="mailto:$rec{'Email'}">$rec{'Email'}</a></FONT></TD></TR>
|;
}
print qq|
<TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>URL: </FONT></TD>
<TD> <$font><A HREF="$rec{'URL'}">$rec{'URL'}</A></Font></TD></TR>
You can see the testing site at
http://www.companycommand.com/testing.htm
I am sure this is still something really silly
THANKS!