Well, don't
*I* feel silly.
Of course you are a woman.
Anyhow, I did what you said & removed those extra brackets:
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';
$url{'Email'} = $rec{'Email'};
$url{'Email'} =~ s/<\/?B>//g;
print qq|
<TABLE WIDTH="100%" CELLPADDING=0 CELLSPACING=0 BORDER=1 BGCOLOR="#EDDECD">
<tr> <td width="10%" align="left" bgcolor="#BF9686"><font face="Arial" size="2"><b>Name</b></font></TD>
<td width="13%" align="center" bgcolor="#BF9686"><font face="Arial" size="2"><b>Rank</b></font></TD>
<td width="18%" align="center" bgcolor="#BF9686"><font face="Arial" size="2"><b>Email</b></font></TD>
<td width="9%" align="center" bgcolor="#BF9686"><font face="Arial" size="2"><b>Joined</b></font></TD>
<td width="9%" align="center" bgcolor="#BF9686"><font face="Arial" size="2"><b>Promoted</b></font></TD></TR>
</TABLE>
|;
print qq|
<TABLE WIDTH="100%" CELLPADDING=0 CELLSPACING=0 BORDER=1 BGCOLOR="#EDDECD">|;
if ($per_admin) {
print qq|
<TR><td width="2%" align="center"><font face="Arial" size="2">$rec{'ID'}</Font></TD>
|;
}
print qq||;
if ($per_admin) {
print qq|
<td width="7%" align="center"><font face="Arial" size="2">$rec{'Status'}</Font></TD>
|;
}
print qq||;
if ($per_admin) {
print qq|
<td width="9%" align="center"><font face="Arial" size="2">$rec{'Barony'}</Font></TD>
|;
}
if ($rec{'Rank'} =~ /^(\d+)(\w+)$/) { $rec{'Rank'} = $2;}
print qq|
<td width="10%" align="left"><font face="Arial" size="2">$rec{'Name'}</Font></TD>
<td width="13%" align="center"><font face="Arial" size="2">$rec{'Rank'}</Font></TD>
<td width="18%" align="center"><font face="Arial" size="2"><a href="
mailto:$url{'Email'}">$rec{'Email'}</a>|;
if ($rec{'Joined'}) {
print qq|
<td width="9%" align="center"><font face="Arial" size="2">$rec{'Joined'}</Font></TD>
|;
}
else {
print qq|
<td width="9%" align="center"><font face="Arial" size="2"> </Font></TD>
|;
}
if ($rec{'Promoted'}) {
print qq|
<td width="9%" align="center"><font face="Arial" size="2">$rec{'Promoted'}</Font></TD>
|;
}
else {
print qq|
<td width="9%" align="center"><font face="Arial" size="2"> </Font></TD></tr>
|;
}
print qq|
</TABLE>
|;
} And even though the "Joined" column now does work, the "Promoted" still will not. *sigh* If you cannot see anything wrong (and I have tried it about 50 different ways now) I guess I am stuck with it the way it is now.
Diana Rae