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.
# This is the "short display" -- the list of records that are returned
# from a search.

my (%rec) = @_;

# create link to full display
$record_number = ((($nh - 1) * $db_max_hits) + $i);

$long_url = $ENV{'QUERY_STRING'};
$long_url =~ s/\&nh=\d+//;
$long_url =~ s/\&mh=\d+//;

$long_url = "$db_script_url?$long_url&nh=$record_number&mh=1";

print "<TD>"; # do not remove this! It is necessary to make the records display properly

# Below is where you define what you want to appear for each record in the "short" display.
# You can make this whatever you want, and display as many fields as you would like.
# Choose which of the fields you would like for users to click on to reach the full display
# of records and use that field name in place of "Title" below.
#
# Be sure that you use <a href="$long_url"> for the link to your full record display.

# <-- Start of short display formatting -- >

print qq|
<a href="$long_url">$rec{'Title of Article'}</a>
|;

# if you want to display your fields in columns, use the following format:
# print qq|
# $rec{'Field'}</td>
# <td>$rec{'Field'}</td>
# <td>$rec{'Field'}</td>
# <td>$rec{'Field'}|;

# Add or remove columns as needed. Be sure you add the $long_url link to one of your fields

# <-- End of short display formatting -- >

print "</TD>"; # do not remove this! It is necessary to make the records display properly

}

# Add or remove columns as needed. Be sure you add the $long_url link to one of your fields
# <-- End of short display formatting -- >
print "</TD>"; # do not remove this! It is necessary to make the records display properly
}

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="#FFFFCC">

# <-- Start of record display -->

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

$url{'Email Address'} = $rec{'Email Address'};
$url{'Email Address'} =~ s/<\/?B>//g;
$url{'Website URL'} = $rec{'Website URL'};
$url{'Website URL'} =~ s/<\/?B>//g;
$rec{'Article'} =~ s/\n/<BR>/g;

print qq|
<TABLE WIDTH="475" CELLPADDING=0 CELLSPACING=0 BORDER=1 BGCOLOR="#FFFFCC">|;
if ($per_admin) {
print qq|
<TR><TD ALIGN="Right" VALIGN="TOP" WIDTH="20%"><$font_color>ArticleID:</FONT></TD>
<TD WIDTH="80%"> <$font>$rec{'ArticleID'}</Font></TD></TR>
|;
}
print qq|
<TR><TD ALIGN="Right" VALIGN="TOP" WIDTH="20%"><$font_color>Author ID:</FONT></TD>
<TD WIDTH="80%"> <$font>$rec{'Author ID'}</Font></TD></TR>
<TR><TD ALIGN="Right" VALIGN="TOP" WIDTH="20%"><$font_color>Current Date:</FONT></TD>
<TD WIDTH="80%"> <$font>$rec{'Current Date'}</Font></TD></TR>
<TR><TD ALIGN="Right" VALIGN="TOP" WIDTH="20%"><$font_color>Full Name:</FONT></TD>
<TD WIDTH="80%"> <$font>$rec{'Full Name'}</Font></TD></TR>
<TR><TD ALIGN="Right" VALIGN="TOP" WIDTH="20%"><$font_color>Email Address:</FONT></TD>
<TD WIDTH="80%"> <$font><a href="mailto:$url{'Email Address'}">$rec{'Email Address'}</a>
<TR><TD ALIGN="Right" VALIGN="TOP" WIDTH="20%"><$font_color>Title of Article:</FONT></TD>
<TD WIDTH="80%"> <$font>$rec{'Title of Article'}</Font></TD></TR>
<TR><TD ALIGN="Right" VALIGN="TOP" WIDTH="20%"><$font_color>Website URL:</FONT></TD>
<TD WIDTH="80%"> <$font><a href="$url{'Website URL'}">$rec{'Website URL'}</a>
<TR><TD ALIGN="Right" VALIGN="TOP" WIDTH="20%"><$font_color>Article:</FONT></TD>
<TD WIDTH="80%"> <$font>$rec{'Article'}</Font></TD></TR>
</TABLE>
|;
}

# <-- Start of short display formatting -- >

print qq|
<a href="$long_url">$rec{'Title'}</a>
|;

print qq|
<a href="$long_url">$rec{'Title of Article'}</a>
|;

print qq|
<a href="$long_url">$rec{'Title of Article'}</a><BR>
$rec{'Full Name'}<BR>
$rec{'Current Date'}
|;