# figure out the date for this link...
my $date_ = GT::Date::date_get();
my $date1 = GT::Date::date_sub($date_,1);
my $date2 = GT::Date::date_sub($date_,2);
my $date3 = GT::Date::date_sub($date_,3);
my $date4 = GT::Date::date_sub($date_,4);
my $date5 = GT::Date::date_sub($date_,5);
my $date6 = GT::Date::date_sub($date_,6);
my $date7 = GT::Date::date_sub($date_,7);

# setup DB connections...
my $db_con = $DB->table("CatLinks","Links");
my $cond = GT::SQL::Condition->new(
'CategoryID', '=', '2',
'CategoryID', '=', '16',
'CategoryID', '=', '23',
'CategoryID', '=', '24',
'CategoryID', '=', '25',
'CategoryID', '=', '26',
'CategoryID', '=', '28',
'CategoryID', '=', '30',
'CategoryID', '=', '31',
'CategoryID', '=', '32',
'CategoryID', '=', '33',
'CategoryID', '=', '34',
'CategoryID', '=', '35',
'CategoryID', '=', '36',
'CategoryID', '=', '37',
'Live_Date' ,'=', $date1,
'Live_Date' ,'=', $date2,
'Live_Date' ,'=', $date3,
'Live_Date' ,'=', $date4,
'Live_Date' ,'=', $date5,
'Live_Date' ,'=', $date6,
'Live_Date' ,'=', $date7,
'isValidated' ,'=', 'Yes'
);
$cond->bool('or');

$db_con->select_options ('ORDER BY Rating DESC','LIMIT 1');
my $sth = $db_con->select( $cond );

while (my $hit = $sth->fetchrow_hashref) {
print "ID: " . $hit->{ID} . "<BR>";
}