sub add_link {
# -------------------------------------------------------------------
# This subroutine will get called whenever the hook 'add_link'
# is run. You should call GT::Plugins->action ( STOP ) if you don't
# want the regular code to run, otherwise the code will continue as
# normal.
#

print $IN->header();
print "test";
exit;

my (@args) = @_;

my $table = $DB->table('Category');
my $sth = $table->select;
my $opts;

# grab all the money, and add it up...
while (my $hit = $sth->fetchrow_hashref) {

$opts .= "<option value=\"$hit->{ID}\">$hit->{Full_Name}</option>"

}

my $category = qq|
<select size="1" name="new_category_sub">
$opts
</select>
|;

print $IN->header();
print Links::SiteHTML::display('pre_add_link', { category_list => $category });
exit;

return @args;
}