Mar 18, 2003, 10:37 AM

Teambldr

Enthusiast (899 posts)

Mar 18, 2003, 10:37 AM

Views: 5939

Re: [Paul] New Links Problem

OK...lets see if I have it now... :)

Code:

sub {
# Displays the newest links on the home page.
my ($output,$sth,$link);
my $cat = shift;
my $search_db = $DB->table('CatLinks', 'Links');
$search_db->select_options ('ORDER BY Add_Date DESC Limit 5');
$sth = $search_db->select ( {isNew => 'Yes', isValidated => 'Yes', CategoryID => $cat });
while ($link = $sth->fetchrow_hashref) {
$output .= Links::SiteHTML::display ('link1', $link);
}
return $output;
}

Last edited by:

Teambldr: Mar 18, 2003, 10:48 AM

Edit Log:

• Post edited by Teambldr Post edited by Teambldr (Enthusiast) on Mar 18, 2003, 10:41 AM
• Post edited by Teambldr Post edited by Teambldr (Enthusiast) on Mar 18, 2003, 10:42 AM
• Post edited by Teambldr Post edited by Teambldr (Enthusiast) on Mar 18, 2003, 10:48 AM