#!/usr/bin/perl

use strict;
use lib '/home/virtual/site38/fst/var/www/cgi-bin/admin';
use Links qw/$IN $DB $CFG/;
use GT::SQL;
use GT::SQL::Condition;
use CGI::Carp qw(fatalsToBrowser);

Links::init('/home/virtual/site38/fst/var/www/cgi-bin/admin');

########################################

print $IN->header();

# setup database table connections...
my $table = $DB->table('Links');
my $table2 = $DB->table('CatLinks');
my $table3 = $DB->table('Category');

my $cond = GT::SQL::Condition->new("Full_Name", "LIKE", 'Regional%');
my $sth = $table->select();
my @ids;

while (my $hit = $sth->fetchrow_hashref) {

push (@ids,$hit->{ID});
print $hit->{Full_Name} . "\n";

}

print join("\n",@ids);