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;
}

use strict;
use GT::Base;
use GT::Plugins qw/STOP CONTINUE/;
use Links::SiteHTML;
use Links qw/$CFG $IN $DB/;

print $IN->param('action');

sub {
my $input = shift;
return $input unless $input->{foo} eq 'bar';

....
}

my $self = shift;
my $p = (ref $_[0] eq 'HASH') ? shift : {@_};

GT::Plugins->dispatch ( $CFG->{admin_root_path} . '/Plugins', 'add_category', sub { return $self->_plg_add (@_); }, $p );