sub site_html_detailed {
# --------------------------------------------------------
# This routine will build a single page per link. It's only
# really useful if you have a long review for each link --
# or more information then can be displayed in a summary.
#
my %rec = @_;
return &load_template ('detailed.html', {
total => $total,
grand_total => $grand_total,
title_linked => $title_linked,
%rec,
%globals
} );
}

sub site_html_detailed {
# --------------------------------------------------------
# This routine will build a single page per link. It's only
# really useful if you have a long review for each link --
# or more information then can be displayed in a summary.
#
my %rec = @_;

my $short_desc = $rec->{Description};

my $char_limit = "20";

my @cut = split(" ",$rec->{short_desc});
$short_desc = "";
foreach (@cut) {
$short_desc .= " " . $_;
if (length($short_desc) >= $char_limit) { $short_desc .= "..."; last; }
}


return &load_template ('detailed.html', {
total => $total,
grand_total => $grand_total,
title_linked => $title_linked,
%rec,
%globals
} );
}

sub site_html_link {
# --------------------------------------------------------
# This routine is used to display what a link should look
# like.

my %rec = @_;

# Set new and pop to either 1 or 0 for templates.
($rec{'isNew'} eq 'Yes') ? ($rec{'isNew'} = 1) : (delete $rec{'isNew'});
($rec{'isPopular'} eq 'Yes') ? ($rec{'isPopular'} = 1) : (delete $rec{'isPopular'});

my $short_desc = $rec{'Description'};
my $char_limit = "20";

my @cut = split(" ",$short_desc);
$short_desc = "";

foreach (@cut) {
$short_desc .= " " . $_;
if (length($short_desc) >= $char_limit) {
$short_desc .= "..."; last;
}

return &load_template ('link.html', {
detailed_url => "$db_detailed_url/$rec{'ID'}$build_extension",
%rec,
%globals
});
}