sub {
# first work out the category this link is in. If its in multiple cats, we just grab the first one
my $cat_id = $DB->table("CatLinks")->do_query(qq|SELECT CategoryID FROM glinks_CatLinks WHERE LinkID = $_[0]|)->fetchrow || '';
if ($cat_id > 0) {
my $father_id = $DB->table("Category")->select( ['FatherID'], { ID => $cat_id } )->fetchrow || '';
my $sth = $DB->table("Category")->select( { FatherID => $father_id } ) || die $GT::SQL::error;

my @cats;
while (my $cat = $sth->fetchrow_hashref) {

$cat->{URL} = $CFG->{build_root_url} . "/" . $DB->table('Category')->as_url( $cat->{Full_Name} ) . "/" . $CFG->{build_index};

push @cats, $cat;
}

return { parent_cat_loop => \@cats };
}


}