i corrected that line, but am still getting the compile error - any ideas?
# Displays the newest links on the home page.
# Get the link information
my ($output,$sth,$link);
my $search_db = $DB->table('Links');
$search_db->select_options ('ORDER BY Add_Date DESC Limit 5');
$sth = $search_db->select ( { isNew => 'Yes', isValidated => 'Yes' });
while ($link = $sth->fetchrow_hashref) {
# Get the links category information
my $catdb = $DB->table('CatLinks', 'Category');
my $catsth = $catdb->select ({ 'LinkID' => $id }, ["Full_Name"]);
$link->{category} = $catsth->fetchrow_array;
$output .= Links::SiteHTML::display ('include_nav_newlinks_format', $link);
}
return $output;
}
regan
Code:
sub { # Displays the newest links on the home page.
# Get the link information
my ($output,$sth,$link);
my $search_db = $DB->table('Links');
$search_db->select_options ('ORDER BY Add_Date DESC Limit 5');
$sth = $search_db->select ( { isNew => 'Yes', isValidated => 'Yes' });
while ($link = $sth->fetchrow_hashref) {
# Get the links category information
my $catdb = $DB->table('CatLinks', 'Category');
my $catsth = $catdb->select ({ 'LinkID' => $id }, ["Full_Name"]);
$link->{category} = $catsth->fetchrow_array;
$output .= Links::SiteHTML::display ('include_nav_newlinks_format', $link);
}
return $output;
}
regan